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SOWYCONVOCA EL 2 o GRAN CONCURSO DE PROGRAMAS MSX. 

toooooo 



Se ha abierto ya la convocatoria del 2 o Gran Concurso de Programas MSX. Hay dos categorías 
de participación: Una, para Centros Docentes; otra para particulares y público en general. 




En la categoría de "Centros Docentes" 
se aceptarán todos los programas cuyo tema sea 
pedagógico pero gue, por supuesto, no sean la mera 
copia de un libro o de un programa ya existente. 
Lo gue se pretende es estimular la creatividad. 
En la segunda categoría, gue denominamos 
"General", los programas gue participen deberán 
corresponder a uno de los cuatro temas siguientes: 

► Simulación en el ámbito de las Ciencias (Física, 
Química, Biología, Ecología, etc.). Se trata de 
crear un programa gue simule un caso real 

o imaginario. 

►iNÍSsícá (creación, interpretación, generador de 
sonidos y ritmos, etc.). 

► Juegos de aventuras. 

► Gráficos y Diseños (se valorará la posibilidad de 
impresión en Plotter). 



- SONY tendrá la propiedad de los programas 
premiados 

- SONY tendrá los derechos de compra sobre el 
resto de los programas presentados. 

- Los programas gue concursen deberán ser 
presentados grabados en cinta de audio SONY 
o diskette SONY OM-D3440, entregándose dos 
copias. Asimismo se deberá adjuntar un listado 
del programa, instrucciones de funcionamiento y 
una síntesis del contenido del programa. 

- Con cada programa se entregará un sobre 
cerrado conteniendo los datos del autor o autores, 
y en el exterior figurará el título correspondiente. 

- Todos los concursantes, independientemente de 
su clasificación final, i 
un producto SONY. 





Los premios se repartirán también 
según las categorías: 

Cate g oría Centros Docentes. 

- Un único premio de un millón de pesetas: a 
repartir entre el Centro Docente y el autor del 
programa. 500.000- Ptas. para cada uno. 
Cate g oría General. 

- Un premio de 500.000 - Ptas. para el gue guede 
clasificado en primer lugar. 

- Dos premios de 300.000,- Ptas. para los gue 
gueden clasificados en segundo lugar. 

- Tres premios de 100.000- Ptas. para los gue 
gueden clasificados en tercer lugar. 

Todos los premios serán en material SONY. 



La fecha límite para la recepción de los 
programases el 30 de Eneróle 1.987. Debiendo 
ser entregados a SONY ESPAÑA, S.Á., 
Departamento de Ordenadores MSX. Sabino de 
Arana, 42-44, 08028 - Barcelona; TEL. (93) 330.65.5 1 . 





- Los programas presentados por los 
Centros Docentes deberán tener un máximo de 
28K.RAM. 

- Los programas presentados por particulares para 
la Categoría General deberán tener un máximo 
de 12 K.RAM. 



Entre todos los programas recibidos, el 
jurado elegirá los gue, a su juicio, contengan un 
mayor nivel de innovación y creatividad. 

El fallo será público el I de 
Abside 1.987 y publicado 
en la prensa nacional. 
Para mayor información o 
consulta, diríjase a 
cualguiera de 
las Delegaciones SONY. 



Loa Sres. Juan fioíg Fetrán 
de Constará (Tairagona) 
leen* Aún Gascón de 
Salamanca, y Enrique 
Riera Quüe» de Valencia 
fueron ganadores del 
Primer Concurso de 
ProgroraoB MSX. Sus 
programas han sido 
publicados por SÓNY y 
actuabnanie entón siendo 
comeícialiiados. Con los 
ganadores de este ano 
se hora lo mismo. Tú 

****** - ^* 
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FELICES 
VACACIONES 



Después de muchos meses 
de intenso trabajo vosotros 
y nosotros nos merecemos 
unas buenas vacaciones. 
Algunos iremos a la 
montaña, otros a la playa 
pero la gran mayoría 
buscará el ocio reparador 
para empezar con más 
brios nuestro trabajo y 
estudios. 

Por esto mismo, les 
advertimos que durante el 
mes de agosto MSX EXTRA 
se tomará un respiro para 
volver con más ganas el 15 
de septiembre, fecha en que 
se inicia uno de los grandes 
acontecimientos de la 
microelectrónica de 
consumo: SONIMAG 86. 
Pero si bien hasta entonces 
no apareceremos no por eso 
estaréis solos, ya que en los 
kioscos que permanezcan 
abiertos tendréis este 
número, nuestro ESPECIAL 
VERANO y también el MSX 
EXTRA CODIGO MAQUINA. 
Vamos, que hay tela para 
rato. 

Mientras tanto, ya hemos 
dejado todo listo para que 
nos veamos las caras en el 
stand 902 de SONIMAG y 
también en un SUPER 
STAND MSX en el que 
tendrán lugar las 
PRIMERAS JORNADAS 
ESPAÑOLAS DEL MSX. 
Como veis continuamos 
estando «al loro» para 
darles lo mej ór y lo más útil 
del MSX. 

Ya es nuestra norma. 
(Felices Vacaciones! 
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EDITORIAL 



EL RESPETO COMO NORMA 

Nuestra Editorial ha nacido y se está 
desarrollando teniendo como principio 
básico el respeto a nuestros lectores y el 
respeto a nosotros mismos. Esto nos pone 
en el camino de un modo de conducta que 
no es, o al menos no debe de ser, 
patrimonio exclusivo de nosotros, sino de 
todos. El hecho de que optáramos por 
apoyar un sistema como el MSX dentro de 
la microinformática de consumo es 
coherente con el criterio fundamental 
apuntado. El sistema MSX es en cierto 
modo solidario entre marcas y no busca 
imponer de un modo egoísta un lenguaje 
particular, sino uno común a muchas 
marcas, donde el usuario pueda optar 
libremente. 

Esto, que ya hemos señalado en numerosas 
ocasiones, viene a cuento de otro aspecto 
de nuestro proceder editorial. En nuestras 
páginas nuestros lectores han hallado 
artículos prácticos, informaciones útiles y 
programas para copiar que les allanan las 
vías de aprendizaje. Ahora bien, movidos 
por ese criterio abarcador, no está en 
nosotros la marginación o el menosprecio 
hacia ningún sector de nuestra sociedad. 
Del mismo modo que publicamos, o 
podemos hacerlo, programas con el texto 
en inglés, porque su autor lo es, no vemos 
la razón para no publicar programas con 
textos en cualquiera de los idiomas del 
Estado Español, pues ellos están 
reconocidos por una Constitución surgida 
del respeto y la solidaridad de todos los 
españoles, del grado de madurez 
democrático alcanzado por todos nuestros 
pueblos. 

Si comentamos esto se debe a la sorpresa 
que nos ha causado comprobar qúe el 
egoísmo y la intolerancia, ínfima por 
suerte, no están totalmente desterrados de 
nuestra sociedad. Pero aunque nos 
sentimos dolidos no dejaremos por ello de 
seguir actuando como hasta ahora. Es 
decir teniendo como norma el respeto. 
Nuestros casi cincuenta mil lectores nos 
hacen sentir muy seguros. 

MANHATTAN TRANSITE R, SJL 



Input 



PELOTIN 

Al querer ejecutar el progra- 
ma Pelotón me sale Illegal 
function cal in 960 y en la lí- 
nea 1010. 

M.* Teresa Alvar ez 
Avilés C Asturias) 

Te rogamos que emplees el 
Test de Listados. De todos mo- 
dos, hemos verificado nueva- 
mente el programa y pensa- 
mos que al tratarse de dos lí- 
neas que contienen la senten- 
cia PLAY has confundido 
«unos» por «eles» o «ceros» 
por «oes». 





PELOTIN 




iJiJi 
































LA REGLA DEL QUINTO 
SPRJTE 

Estoy preparando un Juego 
para enviaros y me encuentro 
con un problema que no sé 
cómo resolver. En el juego in- 
tervienen varios SPRITES, 
pero en un momento determi- 
nado de la ejecución uno de 
ellos desaparece y no sé cómo 
solucionarlo. ¿Puede tratarse 
de una avería del aparato? 

Juan Salvans 
(Valencia) 

No creemos que tu problema 
sea como para preocuparse 
hasta el punto de llevar tu or- 
denador al servicio técnico. En 
cierto modo, parece que te ha- 
yas puesto a construir tu Juego 
«de oído», porque has olvidado 
algo tan elemental como la re- 
gla del quinto sprite. Segura- 
mente, el SPRITE que desapa- 
rece, lo hace en el momento en 
que comparte la misma línea 
horizontal que otros cuatro, 
pues la llamada regla del quin- 
to sprite dice precisamente 
esto: 

Tan sólo cuatro SPRITES 
pueden ser visualizados com- 



partiendo la misma línea hori- 
zontal. En caso de que haya 
más de cuatro, el que quede de- 
finido en el último plano, no 
podrá ser visto. Por lo tanto, o 
bien limitas la acción del Juego 
de manera que tan sólo haya 
cuatro SPRITES en una línea, o 
aprovechas el efecto para tu 
Juego. 



MOVER VARIOS 
SPRITES 

He diseñado una nave, den- 
tro de un juego, que está for- 
mada por cinco SPRITES de 16 
x 16. El problema es que qui- 
siéra moverlos todos a la vez, o 
sea: que se desplazara la nave 
entera a golpe de joystick. 

Rafael Molina 
Hospitalet CBarcelona) 

Lo que tú propones es de 
muy fácil solución. Supón que 
usas en una línea PTJT SPRI- 
TEO, (X, Y), para situar el pri- 
mer SPRITE en la pantalla. 
Pues bien, emplea PUT SPRI- 
TE 1, (X+ 10, Y), para colocar 
el de la derecha, PUT SPRITES, 
(X, Y +10), para emplazar el 
de abajo, etc. 



KRTFTlIM 
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INPUT EN SCREEN 2 



En esta misma sección, en 
vuestro número diez corres- 
pondiente al mes de octubre, 
explicabais cómo hacer apare- 
cer mensajes en las pantallas 
de gráficos SCREEN 2 y 
SCREEN 3. Ahora me gustaría 
conocer la forma de introducir 
datos en estas pantallas me- 
diante la instrucción INPUT. 

Félix Sánchez M á k n 
CValladolid) 

Es completamente imposi- 
ble emplear la instrucción IN- 
PUT en una pantalla gráfica, 
pero puedes simularla en 
SCREEN S usando INKEY$ y 
escribiendo uno a uno los ca- 
racteres tecleados. Debes sa- 
ber, empero, que esto te creará 
problemas, si se pulsan cual- 
quiera de las teclas de control 
del cursor, aunque no son in- 
solubles. Lo que sí es irreme- 
diable es entrar caracteres en 
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Output 



— 



SCREEN3, porque son amplia- 
dos de forma Inmediata. 



POLIFONÍA 



Quisiera preguntaros una 
pequeña cuestión: ¿Se puede 
añadir a un ordenador MSX 
más voces polifónicas? 

Carlos González Nieves 
(Santa Cruz) 

Realmente, no se trata de 
una pequeña coaa el asunto 
que nos preguntas. Lamentán- 
dolo mucho, en esta casa tam- 
bién hay mucha añción a la 
música, no se puede añadir 
una cuarta voz a los MSX. Ya 
sabemos las posibilidades que 
esto podría añadir a la música 
de los programas (tres voces 
manteniendo la armonía 
mientras una cuarta lleva la 
melodía, construcción de acor- 
des con séptima etc.,) pero des- 
graciadamente esto no es posi- 
ble por una limitación de hard- 
ware. El chipAY-3-891 de Ge- 
neral Instruments tan sólo 
tiene previstas salidas por 
tres canales. Lo sentimos tan- 
to como tú. 



CHOQUES DE SPRITES 

Les escribo para que me ex- 
plicasen cómo se pueden selec- 
cionar los choques entre SPRI- 
TES mediante la instrucción 
VPEEK. 

Juan Bollón 
(Barcelona) 

Cuando hay más de dos 
SPRITES funcionando en la 
pantalla sólo puede saberse 
cuáles han chocado compro- 
bando uno por uno las coorde- 
nadas en las que se encuen- 
tran. Ciertamente es posible 
acceder a la tabla de portado- 
res de SPRITE de la VRAM des- 
de el BASIC, usando VPEEK, 
pero los cálculos pueden alar- 
garse hasta el punto de que el 
programa sea inviable por la 
lentitud. 

Te recomiendo que esperes a 
que en un futuro próximo to- 
quemos el tema en profundi- 
dad. Así, podrás disponer de 
una rutina en C.M. que te resol- 
verá el problema. 



VOLTAJES 



Soy estudiante de Biología y 
quisiera aprovechar las entra- 
das de Joystick para la recep- 



ción y procesamientos de da- 
tos procedentes de experimen- 
tos. Mi problema es que al ha- 
cer entrar los datos a través de 
dichos conectores solo puedo 
obtener un valor de 265, si el 
contacto está abierto, o un 
cero, si se encuentra cerrado, y 
yo desearía medir tensiones 
pequeñas. 

Cayetano Gómez Ruis 
(Sevilla) 

Lo que deseas no puede con- 
seguirse únicamente por soft- 
ware. Necesitarás un converti- 
dor analógico/digital de 16 hi- 
tes, que puedes adquirir en 
cualquier comercio serio de 
componentes electrónicos. 
•Junto al chlp, soUcita una fo- 
tocopia del patillaje. De esta 
forma, y si te ves con fuerzas 
para instalarlo, podrás obte- 
ner valores comprendidos en- 
tre y 65536, usando simultá- 
neamente dos puestos de joys- 
tick. Otra posible solución se- 
ría construir un oscilador con- 
trolado por voltaje, para medir 
la frecuencia de los impulsos y 
obtener la tensión original. 

Como ves, es perfectamente 
posible emplear el ordenador 
para construir un voltímetro, 
un frecuencímetro o cualquier 
otra cosa terminada en «me- 
tro». No obstante, no te libra- 
rás de la necesidad de emplear 
el soldador y de construir algu- 
na rutina en código máquina. 



ERRATAS DE 



He encontrado un fallo en el 
libro «MSX LENGUAJE MA- 
QUINA» editado por FERRE 
MORET SA. El problema esté 
en el programa «ENSAMBLA- 
DOR Z80». 

En la línea 10090 en vez de 
poner: 

IF (ASC (A*) 0R 32) = 106... 

Debe decir: 
IF(ASC (A$)0R32)= 116... 

Lo digo aquí porque creo que 
esta es la revista más leída por 
los usuarios del standard. 

Además, quisiera saber va- 
rias cosas: 

-¿Dónde puedo conseguir 
un mapa de memoria comple- 
to? 

-¿Cómo puedo haceros un 
giro postal? 

-¿Cómo se protege un pro- 
grama? 

José F. Giménez Gómez 
(Molina de Segura) 

Muchas gracias por la co- 
rrección y por estar seguro 
-como nosotros- de que la 



SIMULADOR PASO A PASO 



Estoy comenzando a hacer 
mis pinitos en código máqui- 
na, y me encuentro con una se- 
rie de problemas: 

En primer lugar, y como de- 
cís en vuestro «ESPECIAL CO- 
DIGO MAQUINA» comenzar 
una rutina en código máquina 
haciéndolo desde el BASIC es 
imposible. A la vista de ello, me 
agencié el ENSAMBLADOR- 
DESENSAMBLADOR de SONY, 
y —pese a no dominar el As- 
sembler— pude hacer unas 
cuantas rutinas, que pese a pa- 
recer correctas bien no me 
funcionaban como deseaba o 
bien me colgaban el sistema. 
Un amigo me dijo que me sería 
muy útil trabaj ar con un simu- 
lador paso a paso, pero no se 
que es ni para que sirve. ¿Me lo 
podrías explicar o recomen- 
darme alguno? 

Félix Azpilicueta 
(Torrelavega) 

El simulador paso a paso es 
un programa herramienta 
muy útil para la realización de 
programas en código máqui- 
na. Como muy bien puntuali- 
zas en tu carta, cualquier error 
—por pequeño que sea— en una 
rutina en código máquina de- 
semboca casi invariablemente 
en un «cuelgue» del sistema, al 
contrario del BASIC donde 
normalmente aparece un 
mensaje de error que ayuda a 
solucionar el problema. La so- 
lución a esto en C.M. sería po- 
der ejecutar el programa paso 
a paso, corrigiendo durante la 
ejecución los contenidos ine- 
xactos de los registros. Reali- 
zar esta tarea a mano puede 
ser trabajo de chinos, y para 
ello se utilizan los simulado- 




res paso a paso. 

Mejor que recomendarte un 
programa de estas caracterís- 
ticas —además no conocemos 
ninguna versión comercial de 
él, a ver que esperan los fabri- 
cantes de software— preferi- 
mos recomendarte un libro, 
concretamente MSX LENGUA- 
JE MAQUINA de DATA BEC- 
KER editado por FERRE MO- 
RET SA., donde además de ob- 
tener mucha información que 
vas a necesitar para que tus 
«pinitos» se conviertan en 
acrobacias, se incluye el lista- 
do de un simulador paso a paso 
que tú mismo puedes teclear y 
que efectivamente te va a ser- 
vir de muchísima ayuda. Da 
gracias a tu amigo por reco- 
mendarte un programa tan 
útil. 



nuestra es la revista con más 
difusión de la norma. Para 
conseguir un mapa de memo- 
ria completo, tienes dos alter- 
nativas: 

La primera es escribir a MI- 
CROSOFT solicitando que te 
envíen un mapa de memoria. 
Esto tiene el inconveniente de 
que es muy posible que tu peti- 
ción no sea atendida. La otra 
alternativa, es que tú mismo 
desensambles la ROM utili- 
zando un desensamblador y 
una impresora ( opción prácti- 
ca y económica ) aunque puede 
ser bastante aburrida. 

Para hacer un giro postal, 
tan sólo tienes que dirigirte a 
una estafeta de correos y ellos 
solucionarán tu problema. En 
cuanto a la protección del pro- 
grama, hay varias alternati- 
vas. En BASIC puedes utilizar 



las instrucciones de trata- 
miento de interrupciones para 
hacerlo, pero no es muy efícaz. 
También puedes cargar en bi- 
narlo el programa, con lo que 
esto se dificulta un poco más, 
pero en realidad no hay un sis- 
tema absolutamente infalible 
de protección. Si tú puedes 
proteger algo, alguien puede 
desprotegerlo. Lo máximo que 
puedes intentar es ponérselo 
diñcil. De todos modos, tampo- 
co tendría objeto que aquí te 
diéramos un sistema determi- 
nado de protección, pues como 
acabamos de convenir esta es 
la revista de mayor difusión 
entre los usuarios del sistema, 
y por lo tanto en el momento 
de su publicación dejaría de 
ser una protección eficaz y no- 
sotros habríamos quemado un 
cartucho inútilmente. 



5 



DPC 200 DYNADATA 



UN MSX TODO TERRENO 



El Dynadata DPC-200 conjuga un cuidado diseño y una fortaleza notable, que lo 
Hace capaz de resistir el trajín de la casa 



El aparato sobre el cual trataremos 
en esta ocasión tiene una configu- 
ración similar a sus hermanos de 
norma. Es decir que reúne las virtudes 
que ya han hecho famoso el estándar 
MSX en cuanto a potencia de lenguaje y 
versatilidad de uso dentro del segmento 
de la microinformática doméstica. 

En este sentido el DPC-200 Dynada- 
ta, fabricado por la firma coreana Dae- 
woo, responde plenamente a lo que ya 
es habitual se exija a los aparatos MSX. 
Estamos pues ante un aparato fuerte y 
resistente a lo que hay que sumarle las 
bondades de su diseño. Y al señalar el 
diseño no nos referimos exclusivamente 
a su atractiva línea y al alegre color blan- 
co del chasis y al celeste de las teclas 



cursoras y el gris de las teclas de fun- 
ción, sino a las formas ergonómicas del 
teclado, a su distribución y al extraordi- 
nario tacto. 

Características generales 

El DPC-200 está configurado para sa- 
tisfacer las necesidades de los usuarios 
domésticos, tanto en el entretenimiento, 
como en los estudios y en la gestión del 
hogar. El aparato de Dynadata dispone 
de una entrada de cartucho ROM fron- 
tal, localizada en la parte derecha del 
aparato y un bus de expansión en la par- 
te posterior, también sobre la parte de- 
recha. Justo al lado se encuentra la co- 



nexión para impresora y en el lado 
opuesto, las conexiones RF, audio y ví- 
deo. 

Sobre el lateral izquierdo sólo encon- 
tramos el interruptor de encendido del 
ordenador. En el lateral derecho se en- 
cuentran los ports de joysticks, tableta 
gráfica y otros periféricos que empleen 
el estándar de conexión tipo D, y tam- 
bién la conexión para lectograbadora. 

Pero tras enumerar las conexiones, 
seguramente nuestros lectores se esta- 
rán preguntando sobre la potencia «ce- 
rebral» de Dynadata. Pues bien, este 
aparato dispone de una ROM de 32K y 
una RAM de 64K, de los cuales 29K son 
para el usuario. Pero a estos 64K hay 
que añadirle 16K correspondiente al vi- 
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deo o sea que tiene una RAM especial 
para gráficos, cosa «normal» en los or- 
denadores MSX. Este aspecto conviene 
remarcarlo a tenor de numerosas con- 
sultas que nos hacen. Mientras algunos 
aparatos de otras normas pregonan 80K 
o más de memoria RAM haciendo creer 
que son más potentes, en el caso de los 
ordenadores MSX, y en el caso del 
DPC-200 Dynadata otro tanto, está cla- 
ramente especificada cual es la memo- 
ria libre para usuario y cual la necesaria 
para el sistema operativo del aparato. 
En los demás de la memoria pregonada 
hay que deducir la que emplea el apara- 
to para el sistema operativo y para la 
operatividad de imagen, con lo cual la 
memoria libre para usuario queda drás- 
ticamente reducida. 



Teclado dinámico 

En una superficie blanca marfil se 
destaca un teclado totalmente ergonó- 
mico, en español, de gran claridad y tac- 
to muy blando y sensible. Este detalle, 
que normalmente suele pasarse por 
alto, es muy importante debido a que 
evita la fatiga en los casos de personas 
que se pasan muchas horas tecleando o 




elaborando programas. 

El teclado cuenta con 73 teclas muy 
bien distribuidas con letras y signos si- 
milares al teclado del PC de IBM, con lo 
que se pretende normalizar la simbolo- 
gía con aparatos de mayor envergadu- 
ra. En este sentido recordemos la com- 
patibilidad a nivel de archivo con los len- 
guajes MS-DOS y CP/M, aparte de que 
se puede programar en LOGO, PAS- 
CAL, FORTRAN y COBOL, lo que ya 
nos da una idea de la extraordinaria ver- 
satilidad de los MSX. Con respecto a las 
teclas cursoras digamos que su diseño 
responde al llamado tipo diamante que 
otorga comodidad para su manipulación 
al tener mayor superficie táctil. 

La única pega, aunque no es impor- 
tante, es que carece de botón de RE- 
SET. 
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Estrategia comercial 

En el plano estrictamente comercial y 



, 

de cara a los nuevos usuarios MSX, po- 
demos destacar el método de venta que 
está utilizando Dynadata. Si bien el apa- 
rato se puede vender unitariamente, 
también ofrece un conjunto que incluye 
una lectograbadora y un monitor de fos- 
foro verde de 12", por un precio real- 
mente interesante. Todo el paquete es 
ofrecido por 62.500 pts. 

Dentro de esta estrategia Dynadata 
no excluye el software, disponiendo de 
un buen número de programas de entre- 
tenimiento, utilidades, gestión y educati- 
vos. Asimismo, ofrece un curso de infor- 
mática y Basic de 1 2 cassettes y 24 lec- 
ciones, con evaluaciones periódicas y 
diploma de fin de curso. 

En síntesis, el DPC-200 Dynadata es 
un buen aparato, convenientemente 
provisto por la misma marca con perifé- 
ricos y software de calidad. 



REGALATE Y DISFRUTA DE ÜI LIBRO 
VITAL PARA EL USUARIO DE MSX 



UN LIBRO PENSADO 
PARA TODOS LOSOUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 




Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scra- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación 
Tabla de colores SCREEN 1 . Rec- 
tángulos en 3-D. Juego de caracte- 
res alfabéticos en todos los modos. 
Juego Matemático. Más grande más 
pequeño. Poker. Breackout. Apoca- 
lypse Now. El robot saltarín. El ar- 
chivo en casa. 



Deseo me envíen el libro Los secretos del MSX, para lo cual adjunto talón de 1.500 ptas. a la orden de 1 
MANHATTAN TRANSFER, S.A. importante: No se hace contra reembolsos. 

Nombre y apellidos i 

Calle n.° Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
cualquier otro cargo. 

importante: Indicar en el sobre MANHATTAN TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 BajOS-08023 BARCELONA I 
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BIENVENIDOS A msxcki 

UN SOFTWARE DE ALIA CALIDAD PARA MI 



QUINIELAS 




KBYPTON. La batalla más audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un Juego cuya popularidad es cada 
vez más grande entre los usuarios del MSX. 
PVP.500Ptas. 



El secreto de la 



Ü-BOOT. Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas. 



CON GARANTIA 



QUINIELAS. El más completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 






CON GARANTIA 



DE LA PIRAMIDE. Atrevido 
) a través de I03 misterios 
líos laberínticos pa- 
1 egipcia. (Atrévete si 
puedes! PVP. 700 Ptas. 



STAR RUNHER. Conviértete en el audaz 
piloto interestelar y lucha a muerte, a 
través del hiperespacio, contra las defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad. PVP. 1 .000 pts. 



FLOPPY, El Preguntón. Un verdadero desafío 
a tus conocimientos de Geografía e Historia 
española. Ploppy no perdona y te costará 
mucho superarlo. PVP. 1.000 Ptas. 



MAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros, Conseguir el combusti- 
ble para sobrevivir es su misión. Diez niveles 
de dificultad. PVP 1.000 pts. 




Nombre y apellidos: 

Dirección: 

Población: 



CP 



Prov. 



Tel.: 



□ KRYPTON 

□ U-BOOT 

□ QUINIELAS 



Ptas. 600- 
Ptas. 700- 
Ptas. 1.000- 



FLOPPY 
MAD FOX 



Ptas. 500- SNAKE 
Ptas. 700- EL SECRETO DE LA PIRAMIDE 

Ptas. 700,- □ STAR RUNNER 

Gastos de envío certificado por cada cassette Ptas. 70,- 

Remito talón bancarío de Ptas. a la orden de Manhattan Transfer, 8 A. 

ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada 

IMPORTAME: 

indicaren ei sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELO 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 




¡CALL! 














Desplazarse por la pantalla es uno de los atractivos ineludibles para muchos nuevos programadores. 

El cómo conseguirlo es tema del siguiente articulo. 

Considerando las muchas cartas que 
llegan a esta redacción, parece que hay 
una preocupación general por los des- 
plazamientos de pantalla. Sin duda, 
esto viene movido por los vistosos efec- 
tos que se pueden observar en los pro- 
gramas comerciales, en los que no fal- 
tan SCROLLS de todo tipo. Pues bien, 
desplazar la pantalla no es la panacea, 
es, simplemente, una técnica muy co- 
mún que encaja dentro de una estructu- 
ra más compleja, pero de la que sólo for- 
ma una pequeña parte. 

Antes de entrar en el funcionamiento 
de las rutinas, hay que tomar en consi- 
deración varios puntos importantes: 

RELLENAR 

La primera preocupación al construir 
una rutina para efectuar un SCROLL es 
cómo rellenar el trozo de pantalla que 
debe aparecer y qué se debe hacer con 
la zona que ya no será visible. Cabe la 
posibilidad de provocar un desplaza- 
miento rotacional, donde la zona que se 
pierde vuelve a entrar por la parte 
opuesta. Asimismo, es factible despre- 
ciar todo lo que sale y completar con un 
trozo virgen el resto. 

La solución hay que tomarla del pro- 
pio contexto del programa. Si éste tiene 
una larga tabla de símbolos (un proce- 
sador de texto, una hoja de cálculo, una 
base de datos, etc.), es necesario orga- 
nizar los desplazamientos a modo de 
ventana, hacer una rotación puede re- 
sultar útil si se desean obtener efectos 
especiales en un programa de juegos. 

VELOCIDAD 




Ante todo vaya por delante que no hay 
lenguaje de alto nivel que resista un 
SCROLL. Estos son cuestiones, siem- 
pre, de velocidad, por lo que es inviable 
trabajar en otra cosa que no sea el AS- 
SEMBL^R. El VDP que emplean los 
MSX presenta ventajas, pero también 
crea varios inconvenientes. El procesa- 
dor de vídeo se encarga de manejar la 
pantalla, de refrescar Ta memoria y de 
generar las interrupciones. Así las co- 
sas, habrá momentos en los que la CPU 
no podrá acceder a él sin pasar por un 
lapso de espera. No obstante, existen 
cortos intervalos en los que no es nece- 
sario aguardar (unos cuatro milisegun- 



dos después de producirse una interrup- 
ción), aunque para acertar cuáles son 
es necesario construir una rutina gestio- 
nada por interrupciones, que suele aca- 
bar con el empleo del VDP sin pasar por 
el BIOS, lo que a la postre significa pro- 
blemas de compatibilidad. 

La solución más razonable para mo- 
ver grandes bloques de la VRAM es co- 
piarlos en la RAM, tratarlos y devolver- 
los a su sitio en un solo paso. En contra- 
partida, la gran cantidad de memoria 
usada puede resultar un serio problema. 

APROVECHARLAS 



El VDP crea problemas de tiempo de 



acceso, pero permite, en determinadas 
circunstancias, desplazar grandes blo- 
ques de VRAM tocando sólo unos pocos 
bytes. Esto resulta particularmente útil si 
se trabaja en SCREEN ó 1 , ya que se 
puede conseguir cualquier tipo de 
SCROLL tratando menos de un Kb, es 
decir: manipulando la tabla de nombres. 
También es posible emplear la tablade 
nombres en SCREEN 2, aunque en este 
caso la arquitectura se complica y no es 
posible librarse de mover un buen nú- 
mero de datos si se quiere conseguir el 
resultado deseado. 

EMPLEO DE UNA VENTANA 

Conocidos ya los pormenores de un 
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SCROLL, es interesante construir una 
rutina que permita desplazarse sobre la 
memoria y observar los datos que hay 
en ella. El corto listado que sigue funcio- 
na como una ventana del tamaño de la 
pantalla. Bastará con que uséis las te- 
clas verticales del cursor para poder 
efectuar un SCROLL de todo lo que hay 
escrito en la RAM: 



LISTADO 1 



10 RAMVRM: 
20 RELE: 
30 

40 ARRIBA: 
50 

60 ABAJO: 

70' RUTINA: 

80 

90 
100 
110 
120 
130 



EQU 

EQU 

ORG 

LD 

JR 

LD 

LD 

ADD 

LD 

LD 

LD 

CALL 
RET 



#5C 
#FD9B 
40000 
BC, -40 
RUTINA 
BC, 40 
HL, (RELE) 
HL, BC 
(RELE) , HL 
DE, 
BC, 960 
RAMVRM 



Ahora, teclead el pequeño programa 
encargado de poner los códigos en su 
sitio. Al hacer RUN, las primeras líneas 
insertarán una serie de carácteres alea- 
torios en la memoria (letras mayúscu- 
las), que posteriormente podréis ver 
desplazando la ventana sobre ellos. El 
motivo de todo esto es mostrar qué fácil- 
mente se podría intercalar una rutina 
como ésta en un programa más largo, 
para gestionar una gran tabla de datos 
que no pudiera ser visible en su totali- 
dad. Asimismo, tendréis la posibilidad 
de observar cosas interesantes escritas 
en la ROM (los mensajes de error, los de 
inicialización, el analizador de sintaxis, 
etc.), puesto que sólo hay que dirigir la 
ventana hacia el punto que más conven- 
ga en cada caso. 

Las posiciones &HFD9B y &HFD9C 
memorizan el octeto bajo y el alto, res- 
pectivamente, de la parte a la que apun- 
ta la ventana. Es muy sencillo controlar 
estas direcciones y hacer que se visuali- 
cen vuestros propios carácteres, que no 
se superen ciertos topes, que se conmu- 
ten varias tablas y, en general, todo lo 
que se os ocurra. 

Por cierto, si pensáis emplear esta ru- 
tina dentro de un juego que se desarrolle 
en SCREEN 1 , deberéis cargar el regis- 
tro DE con la zona de origen de la tabla 
de nombres, que en este modo está co- 
locada en la dirección 6144, en lugar de 
apuntar a la posición cero, correspon- 
diente a SCREEN 0. Desde el BASIC, 
puede adaptarse la rutina haciendo 
POKE&H9C51 , 24. A continuación, ten- 
dréis que cargar BC con 768, en vez de 
hacerlo con 960, empleando 
POKE&H9C53, 24, 0. 



LISIADO 2 



10 VENTANA ######### 

##### 

20 SCREENO: WIDTH(38) : KEYOFF 



30 GÜSUB130 

40 FORX=38000 ! T039999 ! STEP4 
50 POKEX, RNDiX>*25+65: NEXT 
60 PRI NT" LISTO 

70 POKE&HFD9B, 0: POKE&HFD9C, 152 

80 Z$=INKEY$: I FZ$ = " " THEN80 

90 IFZ$=-CHR$C30)THEN120 

100 IFZ$OCHR$(31)THEN80 

110 DEFUSR1=40000! : A=USR1 (0) : GOT 

08 

120 DEFUSR1=40005! : A-USRl(O) : GOT 

130 FORX=40000!T040024 I ¡ READVS 

14 POKEX, VAL ("AH- + VI) 

150 S=S-t VAL < " &H" +Vf> ) : NEXT 

160 IF3< >2152THENCLS: BEEP: PR i NT" 

HAY UN ERROR" : END 

JVÜ RETURN 

1ÜO DATA01, D8, FF, 18, 3, 01, 28, 0, 2A 

.9B,FD,9,22,9B,FD, 11,0,0, 1.C0.3, 
CD, 5C, 0, 09 

SCROLLS EN SCREEN 2 

SCREEN 2 es la pantalla más difícil 
de tratar. Pensad que en este modo se 
utilizan la práctica totalidad de los 1 6 Kb 
de vídeo. Se quiera o no, siempre es ne- 
cesario manipular una zona bastante 
amplia de esta memoria. 

Las rutinas que veréis más adelante 
efectúan un SÓROLL en cada una de 
las direcciones que indican las flechas 
del cursor. Esto se logra moviendo ínte- 
gramente la zona de nombres, a la vez 
que se completa el trabajo tratando la 
zona de patrones y la del color. El méto- 
do seguido para rellenar es borrar la par- 
te que sobra y volverla a colocar en la 
nueva zona visible. Por consiguiente, 
todo lo que desaparezca durante un 
desplazamiento no podrá ser visto de 
nuevo, aunque se efectúa un SCROLL 
en la dirección contraria. Naturalmente 
puede suprimirse la llamada a la rutina 
encargada de borrar el trozo saliente, y 
obtener así un SCROLL rotacional. Al- 
ternativamente, podréis construir una 
rutina encargada de dibujar de nuevo la 
zona perdida -método éste muy utiliza- 
do en los juegos-, pero, al tratar la zona 
de nombres, EL BASIC puede terminar 
completamente desorientado y será 
preciso recurrir al C.M. 

Confío en que los distintos nombres 
de las rutinas sean lo suficientemente 
explícitos. Aquí tenéis el listado en AS- 
SEMBLER: 



LISTADO 3 



10 


VPEEK: 


EQU 


#4A 


2'0 


VPOKE: 


EQU 


#4D 


30 


VRMRAM: 


EQU 


#59 


40 


RAMVRM: 


EQU 


#5C 


50 


FILLVR: 


EQU 


#56 


60 


BUFFER: 


EQU 


39232 


70 




ORG 


40000 


80 


IZQRDA: 


LD 


HL, 6144 


90 




CALL 


BORRAV 


100 




CALL 


MOVER 1 


110 




LD 


HL, BUFFER 


120 




LD 


IX, BUFFER 


130 




LD 


B, 24 



140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 

600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 



BO: 



Bl: 



PUSH BC 

LD E.31 

LD A, (HL) 

PUSH AF 

INC HL 

LD A, (HL) 

LD (IX+0),A 

INC IX 

DJNZ Bl 

POP AF 

LD (IXtO).A 

INC* HL 

INC IX 

POP BC 

DJNZ BO 

CALL MOVER2 

RET 



DERECHA: 



B2: 



B3: 



* 



ARRIBA: 
B4 : 
B5: 



EXIT1: 



LD 

CALL 

CALL 

LD 

LD 

LD 

PUSH 

LD 

LD 

PUSH 

DEC 

LD 

LD 

DEC 

DJNZ 

DEC 

POP 

LD 

DEC 

POP 

D J NZ 

CALL 

RET 



HL, 6175 

BORRAV 

MÜVER1 

HL, BUFFER+767 

IX, BUFFER+767 

B, 24 

BC 

B, 31 

A, (HL) 

AF 

HL 

A, (HL) 

( IX+0) , A 

IX 

B3 

HL 

AF 

( IX+0) , A 
IX 

BC 
B2 



CALL 




LD 


E, 


LD 


IX, BUFFER 


PUSH 


IX 


POP 


HL 


LD 


B, 224 


LD 


A, ( IX+32) 


LD 


( IX+0) , A 


INC 


IX 


DJNZ 


B5 


LD 


B.32 


LD 


A, (HL) 


SUB 


32 


LD 


(IX+0) , A 


INC 


HL 


INC 


IX 


DJNZ 


B6 


LD 


A, ( IX-32) 


CALL CALCULO 


LD 


A.E 


INC 


E 


CP 


2 


JR. 


Z, EXIT1 


ADD 


HL.BC 
A. -8 


LD 


CALL CAMBIO 


JR 


B4 


CALL 


BORRAH 


CALL 


MOVER2 


RET 







930 


ABAJO: 


CALL 


MOVERl 


940 




LD 


E,2 


950 




LD 


IX, BUFFER+767 


960 




PUSH 


IX 


C~í rj r\ 




POP 


HL 


o o a 

yo u 




LD 


B, 224 


990 


Bo : 


LD 


A, CIX-32) 


1 A A A 
1000 




LD 


< IX+0> , A 


1010 




DEC 


IX 


1020 




DJNZ 


B8 


1030 




LD 


B, 32 


1040 


B9: 


LD 


A, <HL) 


1050 




ADD 


A, 32 


1060 




LD 


< I X+0> , A 


1070 




DEC 


HL 


1080 




DEC 


IX 


1090 




DJNZ 


B9 


1100 




LD 


A, < IX+32) 


1110 




CALL 


CALCULO 


1120 




INC 


E 


1130 




DEC 


E 


1140 




JR 


Z, EXIT2 


1150 




DEC 


E 


1 IdO 




AND 


A 


1170 




SBC 


H L | BC 


1 lOÜ 




LD 


A, 8 


1 190 




CALL 


CAMBIO 


1 OAA 

1¿00 




JR 


B? 


1 O 1 A 
1¿1Ü 


bXl 1¿: 


CALL 


BORRAH 


i OO A 

1220 




CALL 


M0VER2 


1230 




RET 




1240 


i 






1250 


; 






1260 


í 

MOVERl: 






1270 


LD 


BC, 768 


1280 




LD 


HL, 6144 


1290 




LD 


DE, BUFFER 


1300 




CALL 


VRMRAM 


1310 




RET 





LD BC.768 

LD DE, 6144 

LD HL, BUFFER 

CALL RAMVRM 
RET 




CAMBIO: PUSH DE 

CALL RUTCAM 
SET 5 , H 
CALL RUTCAM 
POP DE 
RET 



RUTCAM: LD DE, BUFFER-256 



BC, 256 
A 

CALL FILLVR 
LD BC, 256 
LD A, <#F3EA) 
SET 5 , H 
CALL FILLVR 



1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200' 
2210 
2220 
2230 
2240 
2250 
2260 
2270 

El programa BASIC que sigue pondrá 
los códigos de operación en la memoria, 
a partir de la dirección 40000. Como ya 
he dicho, los diferentes SCROLLS se 
consiguen con las teclas del cursor. No- 
taréis, empero, que los desplazamien- 
tos verticales dejan entrever una peque- 
ña secuela hasta que se acaba de tratar 
toda la pantalla. Se puede evitar este in- 
conveniente, pero a costa de complicar 
considerablemente la rutina o de copiar 
íntegramente la pantalla. El programa, 
tal cómo está, emplea únicamente un 
BUFFER de 1KB. Así los usuarios de 
máquinas de 16Kb no deben tener nin- 
gún problema. 

Si optáis por incluir estas rutinas en uno 
de vuestros programas, podréis hacer- 
lo usando las llamadas que se descri- 
ben en las líneas 100 a la 140, esto es: 
&H9C40 para desplazar a la izquierda, 
&H9C6E para la derecha, &H9C9C para 
conseguir un SCROLL ascendente y 
&H9CDC para uno descendente. 





LD 


BC.256 




PUSH 


AF 




PUSH 


DE 




PUSH 


BC 




C A T T 

CALL 


#59 




POP 


BC 




POP 


DE 




TOP 


AF 




PUSH 


AF 




PUSH 


DE 




PUSH 


HL 




EX 


DE, HL 




ADD 


A, D 




LD 


D, A 




CALL 


#5C 




POP 


HL 




POP 


DE 




POP 


AF 




RET 




CALCULO: SRL 


A 




SRL 


A 
n 




SRL 


A 




SRL 


A 




SRL 


A 




LD 


HL, 




JR 


Z. E0 


BU: 


INC 


H 




DEC 


A 




JR 


NZ, BU 


E0: 


LD 


C, E 




LD 


B, 8 




CP 


C 




RET 


Z . 


B12: 


ADD 


A, B 




DEC 


C 




JR 


NZ, B12 




ADD 


A, H 




LD 


H, A 




RET 





LISTADO 4 



10 '########## SCROLLS ######## 
## 

20 GOSUB150 
30 SCREEN2 

40 FORX=0TO240STEP16 
50 LINE<0, X>-STEP<256, 16) , X/16, B 
60 LINE(X, 0J-STEFC16, 192) , X/ló, B 
70 NEXT 

80 ZS^INKEYS: I F2$=" " THEN80 

90 IFZ*<CHRS<26>ORZ$>CHRS(31>THE 

N80 

100 ONASC(Z$)-27GOTÜ110, 120, 130, 
140 

110 DEFUSR1=&H9C6E: A=USR1 ( 0) : GOT 
080 

120 DEFUSR1=&H9C4 : A=USR1 ( ) : GOT 
080 

130 DEFUSR1=&H9C9C: A=USR1<0) : GOT 
08 

140 DEFUSR1=&H9CDC: A=USR1 (.0) : GOT 
08 

150 •######### CARGADOR 
## 

160 FORX=40000 ! TO40371 ! : READV& 

170 POKEX, VAL< n &H"+Ví> 

180 S=S+VAL ( " &H" +V£ ) : NEXT 

190 IFSO 42874 ! THENCLS: BEEP: PRIN 

T" HAY UN ERROR EN LAS DATAS" : END 

200 RETURN 

210 DATA21, 0, 18. CD, 37, 9D, CD, ID, 9 
D, 21, 4 0, 99, DD, 21, 4 0, 99, 6, 18, C5, 6 
, 1F, 7E, F5, 23, 7E, DD, 77, 0, DD, 23. 10 
, F7, Fl , DD, 77, 0, 23, DD, 23, Cl„ 10, E8 
, CD, 2A, 9D, C9. 21", 1F, 18, CD. 37. 9D, C 
D, lD,9D,21,3F,9C,DD,21,3F,9C,e, 1 

8, C5, 6, 1F, 7E, F5, 2B, 7E, DD, 77,0, DD 
, 2B, 10, F7, 2B, Fl , DD, 77, 

220 DATADD, 2B, Cl. 10. E8, CD. 2A, 9D. 
C9, CD, ID, 9D, 1E, ü. DD, 21, 40, 99, DD, 
E5, El, 6, EO, DD, 7E, 20 , DD, 77. 0, DD.2 
3, 10, F6, 6, 20, 7E. D6. 20, DD, 77, 0,23 
, DD.23, 10, F5, DD, 7E, EO, CD. 9b, 9D. 7 
B, 1C, FE, 2, 28, 8, 9, 3E, Fñ. CD, 6E. 9D, 
18, DO, CD, 5B, 9D, CD, 2A. 9D. C9, CD, ID 
,9D, 1E,2,DD,21,3F,9C,DD 
230 DATAE5, El, 6, EO, DD, 7E, EO, DD, 7 
7, 0, DD, 2B, 10, F6, 6, 20, 7E, C6, 20, DD 
, 77, 0, 2B, DD, 2B, 10, F5, DD, 7E, 20, CD 
, 95, 9D, 1C, ID, 28, B, ID, A7 , ED, 42, 3E 
, 8, CD, 6E, 9D, 18, CF, CD, 5B, 9D, CD, 2A 
, 9D, C9, 01, 0, 03, 21, 0, 18, 11, 40, 99, 
CD,59,0,C9, 1,0,3, 11,0, 18, 21, 40, 9 

9, CD, 5C, 0, C9, CD, 4A 

240 DATAO, 87, 87, 87, 6F, 26, 0, 1 , 8, C 
, AF, CD, 56, 0,1,8. 0, 3A, EA, F3, CB. BC 
, CD, 56, 0, CB, AC, 24, 7C, FE, 18, 20, Eó 
, C9, 1, 0, 1, AF, CD, 56, 0, 1, 0, 1 . 3A. EA 
, F3, CB, EC, CD, 56, 0, C9, D5, CD. 79, 9D 
, CB, EC, CD, 79, 9D, DI, C9, 11, 40, 98, 1 
, 0, 1, F5, D5, C5, CD, 59, 0, Cl , DI, Fl, F 
5, D5, E5, EB 

250 DATA82, 57, CD, 5C, 0, El, DI, Fl , C 
9, CB, 3F, CB, 3F..CB, 3F, CB, 3F, CB, 3F, 
21, 0, 0, 28, 4, 2.4,' 3 D, 20, FC,4B,6,8, B 
9, C8, 80, D, 20, FC, 84, 67, C9 

Estudiad los programas y sacad.con- 
clusiones. En realidad, suele hacer falta 
construir una rutina de desplazamiento 
para cada caso en particular y esta sec- 
ción solamente ha pretendido introduci- 
ros superficialmente en el interesante 
mundo de los tratamientos de pantalla. 
Sed vosotros mismos los que solucio- 
néis los problemas y los qué construyáis 
programas a medida. 



POR JOAQUIN LOPEZ 



12 








A TOPE ESTÁS VACACIONES 
PIDE EN TU QUIOSCO EL 




DOBLE DE VERANO Y EL 
ESPECIAL CODIGO MAQUINA 



13 





SINFONIA DE LOS JUGUETES 

por Garlos Gouálei lleves 



por Carlos González Nieves 

La Sinfonía de los Juguetes, atribuida a Josef Haydn, es un ejemplo de la 
utilización cómica de instrumentos infantiles dentro de la música sinfónica. 
Carlos González Nieves ha efectuado una adaptación para MSX ante la que hay 
que sacarse el sombrero. En esta adaptación del primer movimiento de la 
mentada sinfonía se han explorado todas las posibilidades t imbricas de 
nuestro estándar. Nuestro lector nos avisa que, por si fuera poco, pueden 
efectuarse modificaciones en las líneas 1020, 1070, 1120, 1280 y 1360. Para 
ello estimamos, sin embargo, que además de saber programar hay que saber 
música, por lo que este programa además es un reto a nuestros compositores 



10 CLS : SCREEN 0-.WIDTH 40: COLOR 15,1 



: KE 


:y off 






20 


PRINT" 




¡jai-'" — mi i • 


30 
■i 


PRINT" 


II mi* 




40 


PRINT" 


1 U 




1 " 








50 


PRINT" 


II 


1 


■" 








60 


PRINT" 


P 


i 


1 " 








70 


PRINT" 


1 


1 


B" 








80 


PRINT" 


1 


1 


1" 








90 


PRINT" 


Hl 


1 



I " 

100 PRINT" 
I" 

110 PRINT" 

r 

120 PRINT" 

| SINFONIA 

130 PRINT" 

■ DE LOS" 

140 PRINT" 

■Ü JUGUETES 

150 PRINT" 



IB 



160 PRINT" 

170 PRINT" 

180 PRINT" 

190 PRINT" 
ornara 11 

200 PRINT" 



I m mi 

DI ■ ■ 




210 PRINT" 

JOSEF" 
220 PRINT" 
AYDN" 

230 PRlNT" 



H 



■ 



240 REMSINFONI A DE LOS JUGUETERÍJOS 
EF HAYDN) 

250 PLAY"M6000S1 1 " 

260 PLAY"06L4CL8EDL4CL8GFL4EL8AGGFL 
4EL8DL1 6FDL8C05B06L4CL8EDL4CL8GFL4E 
L8AG" , "05L4EL8GFL4EL8EDL4CL8FEEDL4C 
L8FL1 6AFL8EDL4EL8GFL4EL8EDL4CL8FE" , 
"04L4C L8CL4C. L8CL4C . L8CL4C . L8C03L4 
FL8GGL4C. 04L8CL4C. L8CL4C. L8C" 
270 PLAY"M6000S11" 

280 PLA Y " 06L8GFL4EL8DL 1 6FDL8C05B06L 
8CR8R8ECR8R8EL4CL8AGGFL4EL8DL 1 6FDL8 
C05B06L8CR8R8G" , "05L8EDL4CL8FL1 6AFL 
8EDL8EGER8R8GER8L4EL8FEEDL4CL8FL 16A 
FL8EDL8EGER8" , "04L4C. L8C03L4FL8GGL4 
CR4L4CR4L4C. L8CL4C. L8CL4FL8GGL4CR4 " 
290 PLAY"06L8ER8R8L8GER8" , "C05GE06E 
CR8" , "R8L805ECR8R4" 
300 PLAY"M600S1" 

310 A*="o61 16CDEG-L4GL1 6GG-GAL4BL16 

BAB07CL8DL1 606B07CDC06BAL8GDEG-L4GL 

8G. L16GL2GL4BL8B. L16BL2B" 

320 B$= " 05L 1 6CDEG-L4GL 1 6GG-GAL4BL 1 6 

BAB06CL8DL1605B06D05B06D05B06D05B06 

D05B06D05B06D05B06D05B06D05B06D05B0 

6D05B06D05B06D05B06D05B06D05B06D05B 

06Do5bo6dD5bo6do5bo6do5bo6do5bo6do5 

bo6do5bo6d" 

330 C*= " 04R 1 6R 1 6R 1 6R 1 6L8GGGGGGGGGGG 
GGGGGGGGGGGGGGGGGGGGG " 
340 PLAY A$,B*,C* 
350 PLAY"M5000S1 " 




360 PLAY " 07L8DL 1 606B07CL8DL 1 6Ü6BD7C 
L8DL 1 606B07CL8DL 1 606BCL8D06DEG-GL 1 6 
Ü5GGL8GR8" , " 05L8BL 1 6GAL8BL 1 6GAL8BL 1 
6GAL8BL 1 6GAL8BB06CDL805BR8R4 " , "04LS 
GL4GGGL8GGGCDL4GR4" 

370 PLAY " Ü6L 1 6DEDEL8DBDCR4L 1 6CDCDL8 

CAC05BR4" , " 05R4L4GR4DR4DR4G " , "Ü4L8G 

L4GL8GAL4AL8ADL4DL8DGL4GL8G" 

380 PLAY " Ü6L4DL8EFL4EL8FGL4GL8FED05 

GGR8 " , "05L4B06L8CDL4CL8DEL4EL8DC05B 

Ü4L8GL8GG" , "L104GL8GL4GL8GGÜ3L4GL8G 
ii 

390 PLAY " 06L4DL8EFEL 1 6EDL8EFGL 1 6AGL 

8FEDL 1 6GGL8G " , "05L4BL806CDCL16CDL8C 

DEL 16FEL8DCÜ5BL 1 6GGL8G" , "04L8GL4GL8 

GL8GL4GL8GL8GL4GL8GGFED'' 

400 PLAY " 06L8CR8R8ECR8R8Ü5G AGABG6CR 

8R4", "R805LSGER8R8GEEFEFDEGEG" , "05R 

8EC04L8CC05EC04L8CCCCCC05ECE" 

410 A*="06L8CR8R8ECR8R805GAGAB06CR8 

R8DEDEG-L4G. L8DEDEG-L4G. 05L8B06C05A 

06D05DGR8" 

420 B*= " 05L8EGEGEGEEFEFDEGE04B05C04 
BG5CD04B. L16CL8D04B05C04B05CD04B. 05 
L16CL8D04B05C04A05D04DGR8" 
430 PLAY A*,B*,C* 

440 PLAY " 06L8ER8DR8CR805BR806ER8DRS 

CR805BR8" , "Ll 605CDCDCDCDCDCDCDCDCDC 

DCDCDCDCDCDCDCDC" , " 06L8CR805BR8AR8G 

R806CR805BR8AR8GR8 " 

450 PLAY " 06L4G " , "D" , » 05G " 

460 PLAY ,, 06L16DC05BAL806D05DGR806L4 

GGGGR4" , "05L16DC04BAL805D04DG05DL40 

5BBBBR4" , "05L4C04L8DDL8GGL405GGGGR4 
i. 

470 PLAY"M1001S10" 

480 PLAY"04L4GL8BAL4GL805DCL404BL80 
5EDDCL404BL8AL1 605C04AL8GG-L4GR4" , " 
03L4BL804DCL403BL8BAL4GL804C03BBAL4 
GL804CL16ECL803BAL4BR4" , "02L4G. L8GL 
4G. L8GL4G. L8GL4G . L8G03L4CL802DDGG-E 
D 11 

490 PLAY"M6000S11 " 

500 PLAY " 06L4CL8EDL4CL8GFL4EL8 AGGFL 
4EL8DL1 6FDL8C05BL406CR8" , " 05L4EL8GF 
L4EL8EDL4CL8FEEDL4CL8FL1 6AFL8EDL4ER 
4", "L104CCL4FL8GGL4CR8" 
510 PLAY"M200S14" 

520 PLAY"06L8ECR8R8ECR8R8ECECEL4CR4 
" , "05R8R8L8GER8R8GER8R8GEGL4ER4 " ¡, "O 
5R8R8L8ECR8R8ECR8R8ECEL4CR4" 
530 PLAY " M6000S 1 1 " 

540 PLAY " L 1 605B-06C05B-06C05B-06C05 
B-06C05A06C05A06C05A06C05A06C05B-06 
C05B-06C05B-06C05B-06C05A06C05A06C0 



5AÜ6C", "Q5L2CFCF", "04L8ECECFCFCECEC 
FCFC" 

550 PLAY"M1000S10 n 

560 PLAY " 05L8 AÜ6CR8CDFR8DCL 1 605B-AL 
8B-GA06FR8DCL1605B-AL8B-GL4FR4" , "05 
L8FAR8AB-06CR805B-AL16GFL8GEFAR8B-A 
L 16GFL8GEL4FR4" , "R1R1R1" 
570 PLAY"M6000S8" 

580 PLAY M 06R 1 6L 1 6DR 1 6ER 1 6G-R 1 6GR 1 6A 
R16BR1607CR16DR16ER16G-R16GR16ALSBR 
8R8" , "05L16DR16ER16G-R16GR16AR16BR1 
606CR16DR16ER16G-R16GR16AR16L8BR8R8 
" , "L804DEG-GAB05C04DEG-Gr8r8" 
590 PLAY"M1000S10" 

600 PLAY " 06L8EDL 1 6C05B06L8C05AB06GR 
8EDL16C05BL806C05AGR8" , "06L8C05BL16 
AL8BG-GBR806C05BL16AGL8AG-GR8" , "R8L 
104GL8GL4GL8GGG" 
610 PLAY"M6000S1 1 " 

620 PLAY"L 1606FFFFL8ER8L 1 6BBBBL807C 
R806L16GGGGL8FDECDR8R4" f "06L16DDDDL 
8CR8L 1 6GGGGL8ER8L 1 6EEEEL8D05B06C05G 
BR4" 9 "L804BG05C04GDGCGECDGCEGR4" 
630 PLAY"M6000S1 1 " 

640 PLAY " 06L4CL 1 6C05B06CDL4EL 1 6EDEF 

L8GL 1 6EFGFEDL8C05GABL406CL8C. L16CL2 

CL4EL8E. L16EL2E" , "05L4CL16C04B05CDL 

4EL16EDEFL8GL 1 6EFGFEDL8CG6EFDEL4EL8 

E. L16EL2EL4GL8G. L16GL2G" , "04L1CL8CC 

CCCEFGL1CC M 

650 PLAY"M6000S10" 

660 PLAY " 06L 1 6DEDEL8DBDCR4L 1 6CDCDL8 
CAC05BR4" , "05R4L4GR4DR4DR4G" , "04L8G 
L4GL8GAL4AL8ADL4DL8DGL4GL8G" ' 
670 PLAY"06L4DL8EFL4EL8FGL4GL8FED05 
GGR8" , "05L4B06L8CDL4CL8DEL4EL8DC05B 
Ü4L8GL8GG'• , " L 1 04GL8GL4GL8GG03L4GL8G 

680 PLAY"06L4DL8EFEL1 6EDL8EFGL1 6AGL 

8FEDL16GGL8G" , "05L4BL806CDCL 1 6CDL8C 

DEL 16FEL8DC05BL16GGL8G" , "04L8GL4GL8 

GL8GL4GL8GL8GL4GL8GGFED" 

690 PLAY " 06L8CR8R8ECR8R805GAGAB06CR 

8R4" , "R805L8GER8R8GEEFEFDEGEG " , "05R 

8EC04L8CC05EC04L8CCCCCC05ECE" 

700 A*= " 06L8CR8R8ECR8R805GAGAB06CR8 

R8DEDEG-L4G. L8DEDEG-L4G. 05L8B06C05A 

06D05DGR8 M 

710 B*= "05L8EGEGEGEEFEFDEGE04B05C04 
B05CD04B. L16CL8D04B05C04B05CD04B. 05 
L16CL8D04B05C04A05D04DGR8" 
720 PLAY A^^B*^* 

730 PLAY"06L8ER8DR8CR805BR806ER8DR8 
CR805BR8" , "L1605CDCDCDCDCDCDCDCDCDC 
DCDCDCDCDCDCDCDC " , "06L8CR805BR8AR8G 




R806CR805BR8AR8GRS " 
740 PLAY"06L4G" , "D" , "05G" 
750 PLAY"06L16DC05BAL806D05DGR806L4 
GGGGR4" , "05L16DC04BAL805D04DG05DL40 
5BBBBR4" , "05L4C04L8DDL8GGL405GGGGR4 







760 CLS: COLOR 3,15:WIDTH 37 

770 INPUT" ¿QUIERES OIR LA SINFONIA 

DE NUEVO (S/N) " ; A* 

780 IF A*="S" OR A*="s" THEN GOTO 1 



790 END 





TEST DE LISTADO 



Para utilizar el Test de Listados que ofrecemos al final de cada programa, recordamos que previamente hay 
que cargar en el ordenador el Programa correspondiente aparecido en nuestro número 1 0, de octubre , pág. 29. 



10 
20 



40 

50 
60 
70 
80 



100 

110 
120 



~ 4 
-183 

- 89 

- 11 

- 74 

- 41 

- 71 

- 91 
-171 
-188 
-206 
-123 




250 


-205 


370 


~ 32 


490 


-205 


610 


-205 


260 


-250 


380 


- 1 00 


500 


-230 


620 


- 97 


270 


-205 


390 


- 28 


510 


-156 


630 


-205 


280 




400 


-216 


520 


-168 


640 


- 25 


290 


-245 


410 


-249 


530 


-205 


650 


-204 


300 


- 1 08 


420 




540 


-202 


660 


- 32 


310 


- 92 


430 


- 75 


550 


-199 


670 


-100 


320 


-163 


440 


- 88 


560 


-142 


680 


- 28 


330 


- 1 1 


450 


- 64 


570 


-163 


690 


-216 


340 


- 75 


460 


- 62 


580 


- 57 


700 


—249 


350 


-155 


470 


-200 


590 


-199 


710 




360 


-130 


480 


-230 


600 




720 


- 75 



730 - 88 
740 - 64 
750 - 62 
760 - 2 
770 - 52 
780 -243 
790 -129 



TOTAL: 
10198 





TRIGI 



POR MIGUEL ANGEL RAMIREZ 



Quienes recuerden a Q-oert encontrarán en Trigi una magnífica variación, con 
un tratamiento gráfico muy cuidado y mayores complicaciones en el 
desarrollo del juego, cuyos niveles están muy bien pensados. 







10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

1 40 

150 

160 



PRESENTACION 



68 

2,3 



DEFUSR1=65:DEFUSR2= 
COLOR 15, 1,1: 
OPEN"GRP: "AS#1 
SCREEN 2.3 
AH=USR1 (0) 
G03UB 3140 
LINE (45, 20) -(205, 170) 
LINE (50, 25) -(200, 165) 
B$= " S30C 1 H 1 0E 1 0F 1 0G 1 " 
DRAWBM125, 186"+B* 
LINE (201, 170) -(55, 166) ,4, BF 
PAINT (125,164),! 
PUT SPRITE 1, (118,60) ,3, 1 



4,BF 
1,B 



170 PUT SPRITE 0, (138, 100), 8,0 



180 PUT SPRITE 3, (98, 100) ,8,0 

1 90 A*= " S8C 1 5H 1 0E 1 0F 1 0G 1 0D 1 0H 1 0U 1 0F 

10D10E10U10G10" 

200 DRAW"BM125,90"+A$: DRAWBM145, 1^ 
" +A* : DRAW " BM 1 05 , 1 30 " +A* 
210 PAINT (125, 85) , 15: PAINT ( 145, 125) 
, 15: PAINT (105, 125) , 15 
220 COLOR , , 1 
230 COLOR 10:PSET ( 
"TRIGI" 

240 PSET (108,28) :PRINT#1, "TRIGI » 
250 PSET (50, 175) , 10:PRINT#1, "PRESS 

SPACE TO PLAY" 
260 PSET (51, 175) , 10:PRINT#1, "PRESS 

SPACE TO PLAY" 
270 AH=USR2(0) 
280 IF STRIG (0) THEN 330 



INT#1, 



a& m 



jjk tf^^- ^fl^ 



é^*mm*-M OOnr OQi~iQC 

f «Mptf ri\ubi\m inD 



I 



I 



290 GÜTÜ 280 

310 ELECCION DE NIVEL 

^•20 * * 9 * 9 *■ 9 9 9,9 * ? * * •* 9 9 9 9 * * * *" * '* * * 

330 SCREEN 2,2 

340 PRESET ( 30 , 70 ) : PR I NT# 1 , " JÜYST I CK 

ü TECLADO (A/B) ": A*="" 
350 A*=INKEY* 

360 IF A$="A"THEN MA=1 : GOTO 380: EL 
SE IF A*="B" THEN MA=0:GOTO 380 
370 GOTO 350 

380 Q=0 : B=3 : A= 1 : U=0 : W=0 : C=0 : COLOR 1 
5,1, 1 : SCREEN 2, 2: DRAW"S0" 
390 DEFUSR1=65:DEFUSR2=68 
400 AH=USR1 (0) 

410 COLOR 10: PSET ( 102, 40) : PRINTttl , 
"TRIGI " 

420 PSET (103,40) : PRINTttl, "TRIGI" 
430 COLOR 8: PSET ( 102, 48) : PRINTtt 1 , " 

440 COLOR 15: PRESET (80, 60) : PRINTttl 
, " 1 — ►NIVEL 1 " 

450 PRESET (80,75) :PRINT#1, "2— ► NIV 
EL 2" 

460 PRESET (80,90) -.PRINTttl, "3— ►NIV 
EL 3" 

470 PRESET (80, 105) :PRINTttl, "4 — ►NI 
VEL 4" 

480 AH=USR2(0) 
490 A$=INKEY$ 

500 ON VALÍA*) GOSUB 520,530,540,55 



510 GOTO 490 
520 A1=15:RETURN 600 
530 A1=10:RETURN 600 
540 A 1=5: RETURN 600 
550 A 1=3: RETURN 600 

560 Q=0 : B=B+ 1 : A= 1 : U=0 : W=0 

570 t**********'**'*?'*'*?**?????? 

580 DIBUJO DE PANTALLA 

600 COLOR 15, 1, 1: SCREEN 2,2:DRAW"S0 
■i 

610 RESTORE 3210: GOSUB 3140 

620 A*= "C7H1 0E 1 0F 1 0G 1 0D 1 0H 1 0U 1 0F 1 0D 

10E10U10G10" 

630 FOR X=0 TO 1 

640 FOR Y=0 TO 1 

650 PSET (30+X* 190, 30+ Y #90) : DRAW A* 

: PA I NT ( 30+X * 1 90 , 25+Y #90 ) , 7 

660 PSET (20+X*190,50+Y*90) : DRAW A* 

: PA INT ( 20+ X * 1 90 , 45+Y*90 ) , 7 

670 PSET (40+X*190,50+Y*90) : DRAW A* 

: PAINT(40+X*190,45+Y*90) , 7 



680 NEXT Y, X 

690 A*= " C 1 5H 1 0E 1 0F 1 0G 1 0D 1 0H 1 0U 1 0F 1 
D10E10U10G10" 



LINE (60,0) -(190, 1 
COLOR 15 

PUT SPRITE 0, (0,0) 
RUT SPRITE 1 , (0,0) 



) , 1,BF 



1,0 
1,1 



700 
710 
720 
730 

740 ON A GOSUB 1580,1690,1380,2070, 
2530, 2770, 2230, 2910 

750 PRESET (10, 165) : PRINTttl , "SCORE: " 

760 PSET (10, 180) , 15:PRINT#1, "TIEMPO 
■ ■■ 

770 PSET < 1 20 , 1 80 ) , 1 5 : PR I NT# 1 , " N I VEL 

780 PSET (190, 165) , 1:PRINT#1, "STAGE: 
ii 

790 PRESET ( 1 20 , 1 65 ) , 1 5 : PR I NT# 1 , " V I D 
AS: " 

800 PSET ( 1 95 , 1 80 ) : PR I MT# 1 , " TR I G I " 
810 PSET (196, 180) : PRINTttl, "TRIGI" 
820 LINE (190, 177) -(236, 190) , 15, B 
330 COLOR 8: PRESET < 165, 165) : PRINTtt 
1,B 

840 LINE (235, 160) -(255, 175) , 1 , BF 
850 PRESET (235, 165) : PRINTttl , A 
860 IF Al=3 THEN PRESET (165, 180) :P 
RINTtt 1,4: GOTO 380 

870 PRESET ( 165, 180) : PRINTttl , 4-A1/5 
880 PRESET (65, 165) : PR IMTtt 1 , US ING"# 
tttttt";C 

890 LINE (65, 181)-(99, 183) ,2,BF 

900 D=RND (-TIME) 

910 E=F : G=H : I=J: K=L:M=N:0=P 

920 PUT SPRITE 0,(M,O),6,0 

930 PUT SPRITE 1 , ( 1 22+G , 35+E ) , 1 , 1 

940 IF Q=l THEN PUT SPRITE 2,(122+1 

,35+K) ,1,1 

950 * * * * * * * ,l9 9 9 ,? * 9 * * * * * * * * 1 9 ' 9 * 9 ' 9 9 9 ' 
960 999 INICIO BUCLE PRINCIPAL > ' 



Cpjft 9 -9 ■ » >. . »■ 9, 9. 
980 * * ' " * »> 

990 FOR X=0 
1000 R=STICK 



1010 
1020 
1030 
1040 
1 050 



IF R=8 
IF R=2 
IF R=4 
IF R=6 
IF (M=I 



AND 0=E+T) 
1060 IF R=0 

R=7 THEN 11 
1070 FOR TY= 

7,254:S0UND 
□UND 8,0: PUT 



í > » » > » s j », ? » j » j > í » ? ? > > 

TR í G ; I * 9 9 9 9 9 9 9 9 * 9 9 9 9 9 9 

TO Al 

(MA) 

THEN M=M-1 0:0=0-20 
THEN M=M+10: 0=0-20 
THEN M=M+10: 0=0+20 
THEN M=M- 1 : 0=0+20 
+S AND 0=K+T) OR (M=G+S 
THEN 1380 

OR R=l OR R=5 OR R=3 OR 
40 

255 TO 1 STEP -20:SOUND 
8,15:S0UND 0,TY:NEXT:S 
SPRITE 0, (M, 0) , 6, 



W W W W ^ m w W m m 



r 



oonroomní 







1080 IF (M=I+S AND 0=K+T) GR <M=G+S 



1090 FOR Y=0 TO 10:X=X+.3:IF X=A1 T 
HEN 1100 ELBE NEXT Y 

1100 LINE (65, 165) -(90, 175) , 1,BF:PR 
ESET (65, 165) : COLOR 8: PRINTttl , USING 
"####"; C 

1110 IF POINT (M,ü)«l OR O<10 THEN 
GOTO 1480 

1120 IF POINT <M, 0-1-8) =15 THEN C=C+1 
0:U=U+1:IF U=V THEN A=A+1:G0T0 3390 




1 130 
1 

1 140 
1 150 
1 160 
1 170 



PSET (M, 0+8) , 1: PSET (M+6,0+8) 



NEXT 

9 p í * pi EDRA v'*''*****'**'' 
D=INT(RND(1)*10) 

FOR TY=1 TO 255 BTEP 20:SOUND 
4:S0UND 8, 15: SOUND 0,TY:NEXT:SD 



UND B.i 
1 180 
1 1 90 
1 200 
+E> , 1 
1210 
THEN 
1220 
1230 
200 
1240 
1250 
AND 
1 260 
1270 
1 280 



■i 

IF D<5 THEN 
GOTO 1210 
E=F: G=H: PUT 
, 1 : GOTO 1260 

E=E+20: IF POINT (122+G, 35+E) =1 
1220 ELSE 1240 



G=G+10 ELBE G=G-10 
BPRITE 1, (122+6,35 



IF 
IF 



D<5 THEN G=G 
POINT (122+G 



20 ELSE G=G+20 
35+E)=l THEN 1 



35+E) ,1,1 
OR (M=G+S 



PUT SPRITE 1 , (122+G, 
IF (M=I+S AND 0=K+T) 
0=E+T> THEN 1380 
IF QOl THEN 1350 
D=INT (RND ( 1 ) #10) 
IF D<5 THEN 1=1+ 
LSE 1=1-10: GOTO 1300 
1290 K=FsI=J:PUT SPRITE 
+K) , 1 , 1: GOTO 990 

1 300 K=K+20 : I F POINT (i 22+1 , 35+K ) = 1 
1310 ELSE 1330 

IF D<5 THEN 1=1-20 ELSE 1=1+20 
IF POINT (122+1, 35+K) =1 THEN 1 



:E 

(122+1,35 



THEN 
1310 
1320 
290 
1330 
1 340 
AND 
1350 



PUT BPRITE 2, (122+1, 35+K) , 1, 1 
IF (M=I+S AND 0=K+T) OR (M=G+S 
0=E+T) THEN 1380 

W=W+2/ (4-A1/5) : L I NE (99-W, 182) 
-(99-W+(4-Al/5) , 185) , 1,BF: IF W>=34 
THEN W=0:GOTO 1440 
GOTO 990 

9 9 ..f • 9: 9 9 * »• * 9 9 ■ 9 9 -9 9 r 9 • * 9 •» 9 9 9 -9 9 9 9 * * 

' ' * MUERTE 1 ***¥*»*■*•* *•» >•♦•* 

9 -9-9 9- 9 9-9 9. 9 9: 9 9 ? .9- 9 9 9. H 9 9 9:9 

FOR X=0 TO 195 



1360 
1370 
1380 
1390 
1400 
1410 



SOUND 8, 15: SOUND 0, X 



***************** 

2 * * * * 9 9 ¥• 9 



1420 PUT SPRITE 0, (M, X) ,6,0: NEXT: SO 
UND 8,0 

1430 IF BO0 THEN FOR X = l TO 1000: N 
EXT: B=B-1: LINE (170, 165) -(180, 175) , 
1 , BF: COLOR 8:PRESET ( 165, 165) : PRINT 
#1,B:G0T0 900 

1440 FOR X=l TO 5000: NEXT: GOTO 380 
1450 ' 9 >*■**' ' ■ 

1460 ' ■ ' MUERTE 

1470 > »' í * * * S» 9 9 9 9 9 9 9 9' 9 9 9, 9 9 9 9 9 

1480 FOR X=0 TO 195 

1490 SOUND 8, 15: SOUND 0,ABS(X) 

1500 PUT SPRITE 0, (M,X) ,6,0:NEXT:SO 

UND 8,0 

1510 IF BO0 THEN FOR X=l TO 1000: N 
EXT: B=B-1: LINE (170, 165) -(180, 175) , 
1,BF: COLOR 8:PRESET ( 165, 165) : PRINT 
#1,B:G0T0 900 

1520 FOR X=l TO 1000: NEXT: GOTO 1440 

1530 GOTO 1530 

1540 W=0:U=0:GOTO 700 

1 550 ''r* 7 '***'***'*'******* 



1 560 



1 PANTALLA 



9 9 9*??* 



1 570 * 7 * * ' ? * *■ * * : * '* * ~* * *' f * 9 9 9 * 

1580 PSET ( 125, 50) : DRAW A*:PAINT<12 
5, 45) , 15 

1590 PSET (115,70) : DRAW A*: PA INTUI 
5,65) , 15 

1600 PSET (135,70) : DRAW A*:PAINT<13 
5,65) , 15 

1610 FOR X=l TO 3 

1620 PSET ( 85+ X* 20, 90) : DRAW A*:PAIN 

T(85+X*20,85) , 15 

1630 NEXT 

1640 FOR X=l TO 4 

1650 PSET (75+X*20, 1 10) : DRAW A*:PAI 
NT(75+X*20, 105) , 15 
1660 NEXT 

1 670 F=0 : H=0 : V= 1 : N= 1 32 : S= 1 22 : P=95 : 
T=35: J=200:L=200 
1680 RETURN 

1 690 * 9 ' *■ 9 ' I 9 * 9 9 ; 9 9. 9 9 9 *«#.•*>..« 

1 700 * " ■ 2 PANTALLA " ' * * 9 " 
1710 7 t***********?'** ********* 

1720 PSET (125,30) : DRAW A*:PAINT(12 
5,25), 15 

1730 PSET (115,50) : DRAW A*:PAINT(11 
5,45) , 15 

1740 PSET (135,50) : DRAW A*:PAINT(13 
5,45) , 15 

1750 FOR X=l TO 3 

1760 PSET ( 85+ X* 20, 70) : DRAW A*:PAIN 
T <85+X*20,65) , 15 
1770 NEXT 




oonc OQíTiQC 







1780 P5ET (95, 90) : DRAW A*: PAINT (95, 
85) , 15 

1790 PSET (155,90) : DRAW A*: PAINT (15 
5,85) , 15 

1800 FOR X=l Tü 3 

1810 PSET (85+X*20, 110) : DRAW A*:PAI 
NT(85+X*20, 105) , 15 
1820 NEXT 

1830 PSET (115, 130) :DRAW A*:PAINT(1 
15, 125), 15 | 
1840 PSET (135, 130) : DRAW A*: PAINT (1 
35, 125) , 15 

1850 PSET (125, 150) : DRAW A*: PAINT (1 
25, 145) , 15 

1 860 W=0 : U=0 : F=-20 : H=0 : N= 1 42 : P=95 : V 

=14:S=122:T=35 

1870 RETURN 

1 880 * * ¿ » 

1890 3 PANTALLA >">>> 

1900 * 9 9 " 9 9 ? - * * * ' ' 9 9 ' ' ' 9 * 9 9 ' ' * 
1910 PSET (125,30) : DRAW A*: PAINT (12 
5,25) , 15 

1920 PSET (115,50) : DRAW A*:PAINT(11 
5,45) , 15 

1930 PSET (135,50) : DRAW A*: PAINT (13 
5,45) , 15 

1940 FOR X=l Tü 3 

1950 PSET ( 85+ X* 20, 70) : DRAW A*:PAIN 
T(85+X*20,65) , 15 
1960 NEXT 

1970 PSET (115,90) : DRAW A*:PAINT(11 
5,85) , 15 

1980 PSET ( 135, 90) : DRAW A*: PAINT (13 
5, 85) , 15 

1990 PSET (125, 110) : DRAW A*: PAINT (1 
25, 105) , 15 

2000 PSET (115, 130) :DRAW A*:PAINT<1 
15, 125) , 15 

2010 PSET (135, 130) : DRAW A$:PAINT(1 

35, 125) , 15 

2020 FOR X = l TO 3 

2030 PSET (85+X*20, 150) : DRAW A$:PAI 
NT(85+X*20, 145) , 15 
2040 NEXT 
2050 W=0: U=0: F=-20: H=0: N=122: P=95: V 
= 14 

2060 RETURN 

2080 " " 4 PANTALLA *>">**»>* 
^090 ''''t*'**'**''''*********** 

2100 PSET ( 125,30) -.DRAW A*: PAINT (12 
5,25) , 15 

2110 PSET (115,50) : DRAW A*:PAINT(11 
5,45) , 15 







2120 PSET (135,50) : DRAW A*: PAINT (13 
5,45) , 15 

2130 FOR X=l TO 3 

2140 PSET ( 85+ X* 20, 70) : DRAW A*:PAIN 
T <85+X*20,65) , 15 
2150 NEXT 

2160 PSET (95, 90): DRAW A*: PAINT (95, 
85) , 15 

2170 PSET (155,90) : DRAW A$: PAINT ( 15 
5,85) , 15 

2180 FOR X=l TO 5 

2190 IF X=3 THEN NEXT 

2200 PSET (65+X*20, 110) : DRAW A*: PAI 

NT(65+X*20, 105) , 15 

2210 NEXT 

2220 PSET (95, 130) : DRAW A*:PAINT(95 
, 125) , 15 

2230 PSET (155,1 30 ) : DRAW A$: PA I NT ( 1 
55, 125) , 15 

2240 PSET « 105, 150) : DRAW A*: PAINTÍ 1 
05, 145) , 15 

2250 PSET (145, 150) : DRAW A*: PAINT (1 
45, 145) , 15 

2260 W=0: U=0: F=-20: H=0: N=142: P=95: V 
= 16 

2270 RETURN 

^>r>Q0 > 9 9 f * f r v 9 > * * V 9 7> * 9 > tf * a > » 

2290 7 PANTALLA >>>>>>**>>> 

2300 

2310 PSET ( 105, 30) : DRAW A*: PAINT (10 
5,25) , 15 

2320 PSET (145,30) : DRAW A*: PAINT (14 
5,25) , 15 

2330 FOR X=l TO 4 

2340 PSET ( 75+ X* 20, 50) : DRAW A*:PAIN 
T<75+X*20,45) , 15 
2350 NEXT 

2360 PSET (105,70) : DRAW A*:PAINT(10 
5,65) , 15 

2370 PSET (145,70) : DRAW A*: PAINT (14 
5,65) , 15 

2380 PSET (115,90) : DRAW A*:PAINT(11 
5,85) , 15 

2390 PSET ( 135, 90) : DRAW A*: PAINT (13 
5,85) , 15 

2400 FOR X=l TO 3 

2410 PSET (85+ X* 20, 110) : DRAW A*:PAI 

NT(85+X*20, 105) , 15 

2420 NEXT 

2430 FOR X=l TO 4 

2440 PSET <75+X*20, 130) : DRAW A*:PAI 
NT(75+X*20, 125) , 15 
2450 NEXT 

2460 PSET ( 105, 150) : DRAW A*:PAINT(1 



m m m 



w 9 9 9 ff ttttf • 



w i i\ubi\m in o 




iiiiiiiiiiiiiiiit 



05, 145)., 15 

2470 PSET ( 145, 150) : DRAW A*:PAINTU 
45, 145) , 15 

2480 W=0: U=0: F=-20: H=20: N=122: F-95: 
V=19: 0=1 : J=-20: L=-20 
2490 RETURN 

2500 * 9 '* * *■ ? ' * * * * > * * ' * * * * * -9 9 9 

2510 "> 5 PANTALLA 

2520 ' ' ' ' * ' ' ' ' * 9 9 9 í>.9 9 9 9 9 9 9 9 9 j 

2530 PSET (125,30) : DRAW A$:PAINT(12 
5,25) , 15 

2540 PSET ( 1 15, 50) : DRAW A*: PA INTUI 
5,45) , 15 

2550 PSET (135, 50): DRAW A*:PAINT(13 
5,45) , 15 

2560 FOR X = l TO 3 

2570 PSET (85+X*20, 70) : DRAW A*:PAIN 

T(B5+X*20,65) , 15 

2580 NEXT 

2590 FOR X=l TO 4 

2600 PSET <75+X*20,90) : DRAW A*:PAIN 

T(75+X*20,85) , 15 

2610 NEXT 

2620 FOR X=l TO 5 

2630 IF X=3 THEN NEXT 

2640 PSET <65+X*20, 110) : DRAW A*:PAI 

NT(65+X*20, 105) , 15 

2650 NEXT 

2660 FOR X=l TO 4 

2670 PSET (75+X*20, 130) : DRAW A*:PAI 

NT(75+X*20, 125) , 15 

2680 NEXT 

2690 FOR X=l TO 3 

2700 PSET <85+X*20, 150) : DRAW A*:PAI 
NT(85+X*20, 145) , 15 
2710 NEXT 

2720 W=0: U=0: F=-20: H=0: N=142: P=95: V 
=21 

2730 RETURN 

2740 *• * * * * 9 * »■ ? * * * » *■ * ■ *■ 9 9 9 ■» 9 f 9 



9 9 9 9 9 9 



2750 ' * ' 6 PANTALLA ' ; 
2760 t***'*'*'*'**?* 999999 

2770 PSET (125,30): DRAW A*:PAINT<12 
5,25) , 15 

2780 PSET (115,50) : DRAW A*: RAI NT (11 
5,45) , 15 

2790 PSET (135,50) : DRAW A*:PAINTU3 
5,45) , 15 

2800 PSET (125, 70): DRAW A*:PAINT(12 
5, 65), 15 

2810 PSET (115,90) : DRAW A*:PAINTU1 
5,85) , 15 

2820 PSET (135, 90): DRAW A*:PAINTU3 
5,85) , 15 



2830 PSET (125, 110) : DRAW A*:PAINT(1 
25, 105) , 15 

2840 PSET (115, 130) : DRAW A*:PAINTU 
15, 125) , 15 

2850 PSET (135, 130) : DRAW A*:PAINT<1 

35, 125) , 15 

2860 FOR X=l TO 3 

2870 PSET <85+X*20, 150) : DRAW A*:PAI 
NT(85+X*20, 145) , 15 
2880 NEXT 

2890 W=0 : U=0 : F=-20 : H=0 : N= 1 22 : P=95 : V 
= 12 

2900 RETURN 

2910 " * ' ' 9 ' 9 * 9 * ' ' ' ' * 9 ' > > * * * 9 9 9 9 ? 

2920 ' ' ' ' 8 PANTALLA *•' * 
2930 * * • * *■ »• * * ■» * » ;# * o «are % * 

2940 PSET (105,30) : DRAW A*: 
5,25) , 15 

2950 PSET (145, 30): DRAW A*:PAINT<14 
5,25) , 15 

2960 FOR X=l TO 4 

2970 PSET ( 75+ X* 20, 50) : DRAW A*:PAIN 
T (75+X*20, 45) , 15 
2980 NEXT 

2990 PSET (105,70) : DRAW A*:PAINTU0 
5,65) , 15 

3000 PSET (145,70) : DRAW A*:PAINT(14 
5,65) , 15 

3010 FOR X=l TO 4 

3020 PSET ( 75+ X* 20, 90) : DRAW A*:PAIN 
T(75+X*20,85) , 15 
3030 NEXT 

3040 PSET (105, 110) : DRAW A*:PAINTU 
05, 105) , 15 

3050 PSET (145, 110) : DRAW A*:PAINTU 
45, 105) , 15 

3060 PSET (115, 130) : DRAW A*:PAIIMTU 
15, 125) , 15 

3070 PSET (135, 130) : DRAW A*:PAINTU 
35, 125) , 15 

3080 PSET (125, 150) : DRAW A*:PAINTU 
25, 145) , 15 

3090 W=0: U=0: F=-20: H=20: N=142: P=95: 
V=17: 0=1 : J=-20: L=-20 
3100 RETURN 

3110 * * 9 9 » » * » * * * » * * * » * * » » » * » ? 

3120 ' 9 7 SPRITE '9999 .- 

3 1 30 » » »■'»'*.» »'*»' » f'»'» » f r» > * « :r j 

3140 FOR Y=0 TO 1 

3150 C*="":FOR X=l TO 8 

3160 READ A* 

3170 C*=C*+CHR*(VAL("S<B"+A*) ) 

3180 NEXT X 

3190 SPRITE* (Y) =C* 





w i i\uui\m ¡n -i 



3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 

3400 

3410 
.-• .■» 

3420 
3430 



.NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



01010100 
11111110 
10111010 
10010010 
011111 00 
11101110 
11000110 
11000110 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



00011000 

1 1 % 1 11 
11111011 
11111111 
11111111 
11111111 
01111110 

00000000 



RETURN 

¡« 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 ? 9 9 9 9) 9 S" ? 9 9 f 

RUTINA DE TIEMPO-PUNTOS 

FOR X=W TO 34 STEP 2 

LINE (99-X, 132)-<99-X+(4-Al/5) 



9 <9 -9 9 9- 9 -9 9 9 9 9 .9- V '9' 9 '9 9 -9 9 9: '? -9 9 '9,- 9 

? " ' CAMBIO DE PANTALLA > ' : ' 

9 ?. -t » * 9^9. 9 * » * $ ?^?- i * » ¿. 9 '9 * r *■■■? 



, 185) jlyBF 

3440 PLAY " T255L64S8M500N77 " 
3450 C=C+10 

3460 LINE (65, 165) - (90, 175) , 1 , BF: PR 
ESET (65, 165) : COLOR 8 :'PR I NT# 1 , US I NG 
"####" ; C 
3470 NEXT 
3480 
3490 
3500 

3510 IF A<>9 THEN 3590 

3520 PUT SPRITE , ( - 10 , - 1 ) , 1 , 

3530 PUT SPRITE 1 , (-10, -10) , 1 , 1 

3540 PUT SPRITE 2, (-10, -10) , 1 , 1 

3550 A2=4-Al/5: LINE ( , ) - ( 255 , 1 60 > 

, 1 , BF: Al=Al-5s IF A1<=0 THEN Al=3 

3560 IF A2>=3.4 THEN 3580 

3570 PRESET ( 50 , 60 ) s SOUND 7,252:PPI 

NT#1," PASAS AL NIVEL" ; A2+1 : PLAY" T 

255V 1 5S 1 M5000O2L4A#L8GL4A#L8GL8A#GL 

4F H , » T255V 1 5S 1 M5000O5L4A#L8GL4A#L8G 

L8A#GL4F " : PLAY"L6408V1C" : GOTO 3590 

3580 PRESET (50, 60) : PRINT#1 , " INTENT 

ALO DE NUEVO" 

3590 FOR X=l TO 1000: NEXT 

3600 IF A=9 THEN 560 

3610 GOTO 700 



' 























TEST DE LISTADO 






















10 - 58 240 -212 


470 


-150 


700 


-101 


= 

930 


-218 


1 160 


-254 


1 390 


- 58 


20 


- 58 


250 


-197 


480 


-202 


710 


-219 


940 


-154 


1 170 


- 1 9 1 


1 400 


-195 


30 


- 58 


260 


-198 


490 


- 64 


720 


-209 


950 


- 58 


1 180 


-153 


1 4 1 


-186 


40 


-200 


270 


-202 


500 


-139 


730 


-211 


960 


- 58 


1 190 


- 85 


1 420 


~ 1 06 


50 
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280 


-194 


510 


- 1 30 


740 


-118 


970 


- 58 


1200 


- 7 


1 430 


- 44 


60 


-224 


290 


-176 


520 


-175 


750 


- 51 


980 


- 58 


1210 


- 91 


1 440 


-118 


70 


- 24 


300 


- 58 


530 


-170 


760 


-221 


990 


- 37 


1 220 


-173 


1 450 


- 58 


80 


-201 


310 


- 58 


540 


-167 


770 


-251 


1000 


-193 


1 230 


-187 


1 460 


- 58 


90 


-235 


320 


- 58 


550 


-165 


780 


- 28 


1010 


- 47 


1240 


-218 


1 470 


- 58 


1 00 


-132 


330 


- 23 


560 


-157 


790 


-230 


1020 


- 40 


1250 


-135 


1480 


-195 


110 


- 59 


340 


-194 


570 


- 58 


300 


-195 


1030 


- 41 


1260 


-255 


1 490 


-144 


120 


- 97 


350 


- 64 


580 


- 58 


810 


-196 


1040 


- 44 


1 270 


-254 


1 500 


- 1 06 


130 


- 75 


360 


- 75 


590 


- 58 


820 


-168 


1050 


-135 


1280 


-175 


1510 


- 44 


140 


- 28 


370 


-246 


600 


-103 


830 


- 38 


1060 


-113 


1 290 


- 11 


1520 


-238 


150 


-185 


380 


-138 


610 


- 85 


840 


— 2 


1070 


- 59 


1 300 


- 37 


1 530 


- 1 50 


160 


-131 


390 


-200 


620 


- 4 


850 


- 91 


1 080 


-135 


1310 


-181 


1540 


-117 


170 


-194 


400 


-201 


630 


-197 


860 


— 


1 090 


- 36 


1 320 


- 30 


1550 


- 58 


180 


-157 


410 


-234 


640 


-198 


870 


-102 


1 100 


-164 


1 330 


-227 


1560 


- 58 


190 


-190 


420 


-219 


650 


- 99 


880 


-162 


1110 


- 31 


1340 


-135 


1570 


- 58 


200 




430 


- 66 


660 


-119 


890 


-218 


1 1 20 


-160 


1350 


-201 


1 580 


-241 


210 


- 38 


440 


-120 


670 


-159 


900 


-200 


1 130 


-136 


1 360 


-120 


1 590 


cr 


220 


- 39 


450 


-116 


680 


~ 96 


910 


- 58 


1 140 


-131 


1 370 


~ 58 


1600 


- 45 


230 


-227 


460 


-133 


690 


- 51 


920 


- 80 


1150 


- 58 


1380 


- 58 


1610 


-200 
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2^GRAN 


'¡la 


^CONCURSO 


PROGRAMA 


1 DEL AÑO 



CREA 7 ENVIANOS TU PROGRAMA. HAT PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS A MAS DE UN GANADOR QUE OPTARA 
POR EL «LISTADO DE ORO» Y UNA FABULOSA UNIDAD DE DISCO. 




BASES 



1- Podrán participar todos nuestros 
lectores cualquiera sea su edad, con 
uno o más programas. 

2— Los programas se clasificarán en 
tres categorías: 

A- Educativos 

B- Gestión 

C- Entretenimientos 

3— Los programas, sin excepción, debe- 
rán ser remitidos grabados en cas- 
sette virgen, debidamente protegida 
dentro de su estuche plástico en el 
que se insertará el cupón-etiqueta 
que aparece en esta misma página, 
debidamente rellenado. 

4- No entrarán en concurso aquellos 
programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5— Junto a los programas se incluirán 
en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posi- 
bles y todos aquellos comentarios 
que el autor considere de interés. 

6- Todos los programas han de estar es- 
tructurados de modo claro, separan- 



do con PuEM los distintos apartados 
del mismo. 

PREMIOS 

7- SUPER JUEGOS EXTRA MSX otorga- 
rá los siguientes premios: 

AL PROGRAMA EXTRA MSX DEL 
AÑO 

«EL LISTADO DE ORO» 
Una Unidad de disco 
valorada en más de 80.000 ptas. 

8- Los programas seleccionados por 
nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los si- 
guientes premios en metálico: 

Programa Educativo 10.000 pts. 
Programa de Gestión 10.000 pts. 
Programa de Entretenimiento 
6.000 pts. 

9- SUPER JUEGOS EXTRA MSX se re- 
serva el derecho de publicar fuera de 
concurso aquellos programas de re- 
ducidas dimensiones que sean de in- 
terés, premiando a sus autores. 

FALLO Y JURADO 

10- Nuestro Departamento de Progra- 



mación analizará todos los progra- 
mas recibidos y hará la primera se- 
lección, de la que saldrán los progra- 
mas que publiquemos en cada núme- 
ro de S.J. EXTRA MSX. 

1 1- Los programas recibidos no se devol- 
verán, salvo que el autor lo requiera 
expresamente. 

12- La elección del PROGRAMA MSX EX- 
TRA DEL AÑO se hará por votación 
de nuestros lectores a través de un 
boletín que se publicará en el mes de 
octubre de 1986. 

13- El plazo de entrega de los programas 
finaliza el 14 de noviembre de 1986. 

13- El fallo se dará a conocer en el núme- 
ro del mes de enero de 1987, entre- 
gándose los premios el mismo mes. 



REMITIRA: 
CONCURSO EXTRA 
MSX 

Roca i BatUe, 10-12 
bajos 

08023 Barcelona 




PROGRAMA 



N.« 



NOMBRE DEL PROGRAMA 

CATEGORIA 
PARA .. K 

INSTRUCCION DE CARGA 



AUTOR: 
EDAD: 

GALLE: W.° 

CIUDAD DP .... TEL.: 

N.° DE RECEPCION 
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Otra agenda que pufalí 
interesantes y que nnestri 
su momento. Tiene un menú con 



GENDA 

JAUME SANCHO GARCÍA 

concurso pues incorpora elementos 
s/electores sabrán apreciar y utilizar en 
Dnal pero de fácil acceso. Dentro de una 
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menu con sol ° pplsar MIUM - 



1 30 
140 
150 
160 
170 
180 
190 
200 
210 
ION 
220 
230 



KEY OFF : CLEAR 1000:NF=30 



NF= NUMERO DE FICHAS 
N0*= VARIABLE DE NOMBRE 
DI*= VARIABLE DE LA DIRECC 

' TI*= VARIABLE DEL TELEFONO 



I 



240 
250 
260 
270 



DIM NO$(NF) ,DI$(NF) ,TI*<NF) 
REM MENU 



290 
300 

310 ' CREACION DEL MENU 

320 

330 A*=" ************************* 

*************" 

340 B*="* 

*» 

350 CLS: COLOR 1,1: SCREEN 

360 PRINT A*: FOR 1=1 TG 3 : PRINT 

B*:NEXT I 

370 PRINT A*: FOR 1=1 TO 17: PRINT 

B*:NEXT I 

380 PRINT A$ 

390 

400 ' DEFINICION DE LAS OPCIONES 
410 

420 LOCATE 12,2 : PRINT "A G E N D 
A" 

430 LOCATE 10,6 : PRINT" 1 . ~ ENTRAR 
FICHA" 

440 LOCATE 10,8 : PRINT "2.- MODIFI 
CAR FICHA" 

450 LOCATE 10, 10: PRINT"3. - BORRAR 
FICHA" 

460 LOCATE 10, 12: PRINT "4. - GRABAR 
FICHERO" 

470 LOCATE 10, 14: PRINT"5. - LEER F 
ICHERO" 

480 LOCATE 10, 16: PRINT "6. - IMPRIM 
IR FICHERO" 

490 LOCATE 10, 18: PRINT"7. - FIN" 
500 LOCATE 11,20:PRINT"ELIJA OPCI 
ÜN "; 

510 COLOR 15, 1 
520 N$=INPUT$<1> 
530 N=VAL ( N$) 

540 IF N<1 OR N>7 THEN 520 



¡0 



PRINT N*s 



560 N*=INPUT*(1) 

570 IF N*=CHR*<8) THEN PRINT N*; " 

" ;N*; : GOTO 520 
580 IF N*OCHR*<13) THEN 560 
590 ON N GOTO 600,860,1220,1470,1 
690, 1920,2200 

600 REM 

610 REM ENTRAR FICHA 
620 REM 



630 
640 
A 

650 
660 
670 
680 
690 



SUBRUTINA DE ENTRADA DE UN 



FICHA 



FOR 1=1 TO NF 

CLS: LOCATE 10, 1 : PRINT "ENTRADA 



DE UNA FICHA" 
700 PRINT: PRINT A* 
710 

USCULAS 



LOCATE 11,5:PRINT"S0L0 EN MAY 

Q " 



LOCATE 0,8 : PR I NT " NOMBRE " 
LD=30:GOSUB 2260 
IF M$="" THEN 330 
NO*(I)=M$ 

LOCATE 0, 10:PRINT"DIREC. "; 
LL=30:GOSUB 2260 
DI$<I)=M* 

LOCATE 0,12: PR I NT " TELF , " ; 
LL=7:G03UB 2260 
N$= ( STR$ ( VAL ( M$ ) ) > : I F LEN ( N* ) 
THEN 790 
tÍ*<I)»M* 
NEXT I 
GOTO 330 
END 

REM 

REM MODIFICAR 
REM 



FICHA 



720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
<LL+Í 
820 
830 
840 
850 
860 
870 
880 
890 
900 
NA 
910 
920 
930 

940 CLS: LOCATE 8, 0: PRINT" INDIQUE 

NUMERO DE FICHA" 

950 PRINT: PRINT A*:H=5:V=4 

960 FOR 1=1 TO NF 

970 LOCATE H,V:V=V+l 

980 PRINT USING "##" ; I ; : PRINT"-" ; 

ND$(I) 

990 IF (1 = 10 OR 1=20) AND I < NF TH 
EN H=H+10:V=4 
1000 NEXT I 

1010 LOCATE 10,22:PRINT"FICHA A M 
ODIFICAR 

1020 LL=2:G0SUB 2260 ^ 
1030 N=VAL(M*):IF N=0 THEN 330 
1040 IF N<1 OR N>NF THEN 1020 
1050 CLS: LOCATE S, 2: PRINT "MODIFI G 
UE LA FICHA" 
1060 PRINT: PRINT A* 

1070 LOCATE 0,8 : PRINT " NOMBRE ";N 



SUBRUTINA PARA MODIFICAR U 



DE LAS FICHAS 




OOi~n~ OQi~!OC 

ri\uoi\rn a i-i 



0*(N) 
1 080 
I*(N> 
1090 
I*(N) 
i 100 
1110 
1120 
1130 


1140 

1150 

1 160 

1 170 

1180 

XLL+1 

1 190 

1200 

1210 

1 220 

1230 

1240 

1250 

1260 

NA 

1270 

1280 



1 480 REM 
1490 REM 



LOCATE 



LOCATE 7,8:LL=30:GOSUB 2260 
IF M*="" THEN 1130 
NQ*(N)=M* 

LOCATE 7,10:LL=30 : GOSUB 226 

IF M*="" THEN 1160 
DI$(N)=M* 

LOCATE 7,12 :LL=7: GOSUB 2260 

IF m="" THEN 1200 

N$= (STR$ (VAL (M$) ) ) : IF LEN(N* 

THEN 1160 

TI*(N)=M* 

GOTO 940 

END 

REM 

REM BORRAR FICHA 

REM 

' SUBRUTINA DEL BORRADO DE U 




GRABAR FICHERO 



SUBRUTINA PARA 



FICHA 



10, 18:PRINT"FICHA A BO 



1290 

1300 CLS: LOCATE 8, 0: PRI NT" INDIQUE 

NUMERO DE FICHA" 
1310 PRI NT: PRI NT A*:H=5:V=4 
1320 FOR 1=1 TO NF 
1330 LOCATE H,V:V=V+1 
1340 PRINT USING "##" ; I ; : PRI NT"-" ; 
NO* ( I ) 

1350 IF (1=10 OR 1=20) AND I <NF TH 
EN H=H+10:V=4 
1360 NEXT I 
1370 LOCATE 
RRAR " ; 
1 380 
1390 
1 400 
1410 
AR LA 
1420 
1 430 
1440 
410 

1450 FOR I=N TO NF-1 : NO* < I > =NO* < 1+ 
l):DI*(I)=DI*(I+l):TI*(I)=TI*(I+i): 

NEXT I:NO*(NF)="":DI*(NF)="":TI*(NF 
j _ ¡i M 

1460 GOTO 1 
1470 REM — 



LL=2: GOSUB 
N=VAL (M*) : 
IF N<1 OR 
LOCATE 2, 
FICHA" ; Ns ' 



2260 
IF N=0 THEN 330 
N>NF THEN 1380 
20: PRI NT" QU IRE BORR 
? (S/N) "; 



N*=INPUT*(1) 

IF N*="N" OR N*="n" THEN 1370 
IF N*<>"S" AND N*<>"s" THEN 1 




FICHERO 



CLS: LOCATE 1 
FICHERO" 

1560 PRINT: PRINT 



0: PRI NT "GRABAR 



A* 



ESTA SEGURO DE 



THEN 
THEN 



330 
1630 

ESTE 



1570 PRI NT: PRI NT" 
QUERER GRABAR EN" 
1580 PRINT: PRINT" EL FICH 

ERO ? (S/N) "; 
1590 N*=INPÜT* (1 ) 
1600 IF N*="N" OR A$="n" 
1610 IF N*="S" OR A*="s" 
1620 GOTO 1590 

1630 LOCATE 0, 10: PRI NT "CUANDO 

PREPARADO PULSE LA TECLA" 
1 640 LOCATE 1 2 , 1 2 : PR I NT " - 

1 650 N*= I NPUT* ti) : ÍF N*< >CHR* (13) 
THEN 1650 

1660 OPEN"FICH" FOR OUTPUT AS #1 
1670 FOR 1=1 TO NF:PRINT#1,NG*(I> : 
PRINT#1,DI*<I) :PRINT#1,TI*(I) : NEXT 
I 

1680 CLOSE #1 s GOTO 330 

1690 REM 



1700 REM 
1710 REM — 



LEER FICHERO 



'SUBRUTINA PARA LEER EL FICH 



1720 
1 730 
1740 
ERO 
1750 
1760 

1770 CLS: LOCATE 12,0: PRINT" LEER F 
ICHERO" 

1780 PRINT: PRINT A* 

1790 PRINT: PRINT" ESTA SEGURO 

DE QUERE LEER EL" 

1800 PRI NT: PRI NT" FICHE 
<S/N) "; 
N*=INPUT* (1 ) 

IF N*="N" OR A*="n" THEN 330 
IF N*="S" OR A*="s" THEN 1850 




1840 GOTO 1810 



LOCATE 0, 10: PRINT"CUANDO ESTE 



PREPARADO PULSE LA TECLA'" 
1860 LOCATE 12, 12: PRINT"- ENTER -" 
i 

1870 N*=INPUT*<1) : IF N*< >CHR* < 13) 
THEN 1870 

1880 OPEN"FICH" FOR INPUT AS #1 

1890 FOR 1 = 1 TO NF: INPUT #l,NO*(I> 

fültil) ,TI*(I> : NEXT I 

1900 CLOSE #l:GOTO 330 

1910 REM 

1920 REM IMPRIMIR LAS FICHAS 
1930 REM 



SUBRUTINA PARA IMPRIMIR LA 



FICHAS POR IMPRESORA 



1940 
1 950 
S 

1960 
1 970 
1980 

1990 CLS: LOCATE 8, 0: PRINT" IMPRIMIR 

FICHERO" 
2000 PRINT: PRINT A* 
2010 PRINT: PRINT 

2020 LOCATE 5,5: PRINT"ESTA SEGURO 
? <S/N>"; 



2030 
2040 
2050 
2060 
2070 
HA A 
2080 
HA A 
2090 



N*= INPUT* ( 1 ) 

IF N$="S" OR N* 

IF N*="N" 

IF m="" 

LOCATE 3, 
IMPRIMIR"; 

LOCATE 3, 
IMPRIMIR"; 

FOR X=A TO B 

LPRINT" 



5" THEN 2070 
OR N*="n" THEN 330 
THEN 2030 
8 : INPUT "PRIMERA FIC 
A 

11: INPUT"ULTIMA FIC 
B 



2110 
2120 
2130 
2140 
2150 
2160 

2170 
2180 



LPRINT "FICHA NUMERO :";X 
LPR I NT " NOMBRE : " NO* ( X ) 
LPRINT"DIREC. :"DI*<X) 
LPRINT " TELF . : "TI*<X) 
NEXT X 
LPRINT" 







» i Hilf m'nlii 11 



GOTO 330 
REM 







2190 

2200 



REM 
REM 



FIN 



FINAL DEL PROGRAMA 



2210 
2220 
2230 

2240 CLS: LOCATE 12,0: PRINT "FIN DEL 
TRABAJ O " : PR I NT : PR I NT A* : PR I NT : PR I N 
T "ESTA SEGURO DE ABANDONAR" : PRINT: 
PRINT "EL PROGRAMA (S/N) 
2242 Z*=INPUT*(1) 
2244 IF Z*="N" OR Z*="n" 
2246 IF Z*="S" OR Z$="s" 

15,4,4sCLS*END 
2248 GOTO 2242 

COLOR 15,1,1 
REM 



THEN 
THEN COLOR 



2250 
2260 



2270 REM SUBRUTINA ENTRADA DE DAT 
OS 

2280 REM 



ENTRADA DE LOS DATOS PARA 



2290 
2300 
LAS 
2310 
2320 
2330 

2340 N$= I NPUT* ( 1 ) : I F N*=CHR*<13> 
HEN M*="":GOTO 2440 

2350 IF ASC(N*)<32 OR ASC(N*)>90 
HEN 2340 

2360 PRINT N«; : M*=N* 
2370 N*= I NPUT* ( 1 ) : L"/.=LEN ( M* ) 
2380 IF L*/.= l AND N*=CHR*<8) THEN 
RINT N$; " 
OTO 2340 

2390 IF L7.M AND N*=CHR*(8) THEN P 
RINT N*;" "!N*5:M*=LEFT*(M*,L7.-1):G 

OTO 2370 

2400 IF N*=CHR*(13) 
2410 IF L%«UL THEN 
2420 IF ASC<N*><32 OR ASC(N*)>90 T 
HEN 2370 

2430 M*=M*+N*z PRINT N*;:GOTO 2370 
2440 RETURN 




B=LEFT*(M$,L"/.-l):G 



THEN 2440 



TEST DE LISTADO 



10 


- 58 


60 - 


58 


1 10 


- 58 


160 


- 58 


20 


- 53 


70 - 


58 


120 


- 58 


170 


- 58 


30 


- 58 


80 - 


58 


130 


- 58 


180 


- 58 


40 


- 58 


90 - 


58 


140 


-116 


190 


- 58 


50 


- 58 


100 - 


58 


1 50 


- 58 


200 
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260 - 58 310 - 58 

- 58 270 - 320 - 58 

230 - 58 280 - 330 -212 

240 - 58 290 - 340 -237 

250 -192 300 - 58 350 -246 
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-204 


1320 


- 57 


1 640 
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1960 
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224S 


- 97 


/ Y-' 


— 44 


690 




1010 


-182 


1330 


— \ r ? r ? 


1 650 


-228 


1970 


- 58 


2250 


- 87 


tJ 


o_ *T <-J 


700 


— 1 9"^ 

X T •— P 


1 0^0 


- 7 c= i 


1340 


-144 


1 660 


-168 


1980 


- 58 


2260 


- 




— 5R 




— 2A 


1 0" :r .0 


-2 1 6 


1350 


- 57 


1670 


-196 

X f w 


1990 


-127 


2270 


- 


" >-' 




7^0 


— "=¡9 


1 040 

X >-' " >-' 


— 1 37 


1360 


-204 


1680 


- 5 


2000 


-193 


2280 


- 


4 1 


- 58 


730 


-101 


1050 


-16^. 

X w%»* 


1370 


-236 


1690 


- 


2010 


- 92 


2290 


- 58 


4^0 


-225 


740 


— 9R 


1 060 


— 193 

x / ' 


1380 


- 75 


1700 


- 


2020 


-220 


2300 


- 58 


430 


-246 




— 1 R7 
x o / 


1 070 


-155 

X w — 


1390 


-216 


1710 


- 


2030 


-109 


2310 


- 58 


440 


- 187 


760 


- 13 

X W 


1080 


- 93 


1400 


-243 


1 720 


- 58 


2040 


-152 


2320 


- 58 


450 


—246 


770 


- 1 1 

X X 


1 090 


-120 


1410 


- 34 


1 730 


- 58 


2050 


-187 


2330 


- 58 


460 




7R0 


— 1 7 1 

x / x 


1 100 


9^9 


1420 


-109 


1 740 


- 58 


2060 


- 12 


2340 


-117 


470 


- 1 


790 
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SUSCRIBETE HOY MISMO SI 



QUIERES ESTAR EN VANGUARDIA 



La primera revista de MSX de España en ta domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. 

Además tu condición de snscriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 
MAWHATTAH THAOTFBH, S JL 



Calle 



N.° 



k 



Ciudad Tel. 

Provincia 



Deseo suscribirme a la revista 
SUPERJUEGOS EXTRA MSX 

a partir del número 

FORMA DE PAGO: Mediante talón ban- 

carlo a nombre de: 

MANHATTAN TRANSFER, SJL 
Cl. Roca i Batlle, 10-18 
08023 Barcelona 



Muy importante: paz* «vitar retraso» en la 
recepción de loa números rogamos deta- 
llóla exactamente al nuevo número de loa 
distritos postales. Gracias. 



Ptas. 1.780 - 
Ptas. 8.000- 
Ptaa. a.soo, 
88 usa t 



1 



: — 



España por correo normal 
Europa correo normal 
Europa por avión 
América por avión 
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HOPPER 




POR CLAUDIA TELLO HELBLING 



Aackosoft/Comiraloéical 
Formato: Cassette 32K 
Mandos: Teclado o joystick 
Teclee: RI 



Hopper consiste en ayudar a una 
simpática ranita a cruzar una 
autopista muy transitada. Esta 
es una buena versión del famoso Frogger. 
Es decir que la rana va muy despistada y 
tiene la intención de cruzar sin preocu- 
parse demasiado de los vehículos por lo 
que tú tienes que vigilar que algún loco del 
volante no la atropello. 

Aunque parezca fácil esquivar los co- 
chos no lo es, pues hay momentos en que 
éstos aumentan su velocidad. Además no 
se trata sólo de cruzar la autopista, sino 
que después nuestra amiga debe atravesar 
un rio peligrosísimo. En él hallará unas 
tortugas muy simpáticas que le ayudarán 
a cruzar, pero cuidado, la ranita sólo tiene 
que saltar sobre otra tortuga cuando estén 
sumergidas. En el caso en que haya dema- 
siada distancia entre las tortugas puedes 
valerte de unos troncos que lleva la co- 
rriente. Pero aquí hay otro peligro, la posi- 
bilidad de confundirte el tronco con un fe- 



roz cocodrilo o con las culebras o nutrias. 

En la orilla opuesta del río encontrarás 
cinco pequeños puertos donde debe meter- 
se la rana. Una vez que la rana ocupe los 
cinco puertos finaliza esta etapa y vuelve 
nuestra amiga al principio pero con ma- 
yores obstáculos. 

En el caso de que en el puerto te encuen- 
tres con una mosca, tienes que saltar so- 
bre ella y recibirás puntos extras, pero si 
en cambio te recibe un cocodrilo, espera a 
que se vaya o salta al puerto que veas libre. 

¡Ah! Hay otra cosa muy importante. Si 
cuando nuestra amiga cruza el río ve a 
otra ranita tienes que ayudarla a cruzar la 
corriente y aparte de que tú obtengas más 
puntos, nuestra amiga habrá encontrado 
a su pareja. 





Sonido: Insistente 
Grafismo: Bueno 

Conclusiones: Aunque conocido sigue sien- 
do un juego atractivo especialmente para los 
más jóvenes. 

Precio aproximado: 2500 pts. 




Konami/Serma 
Formato: Cartucho 
Mandos: Teclado o joystick 



1 nuevo golf de Konami te da la 
oportunidad de realizar un verda- 
dero partido que asombrará a tus 
amigos. Puedes elegir entre hacer un par- 
tido por hoyos o bien por golpes. Además, 
si lo deseas puedes jugar un partido tú 
sólo para practicar los tiros, mejorar tu 
técnica, etc. Una vez que hayas practicado 
lo suficiente, podrás jugar con algún ami- 
go. 

Si prefieres jugar golpes: sólo se pun- 
tuarán los golpes que has dado al realizar 



los nueve hoyos. Cuantos menos golpes 
des por cada uno mayor será la puntua- 
ción. Si en uno de tus golpes tiras la pelota 
a un bunker o en otro obstáculo, no debes 
utilizar los palos con cabeza de madera. Si 
por el contrario prefieres Jugar un partido 
por hoyos, la puntuación cambia,ya que la 
misma será por cada hoyo en el que la pe- 
lota consiga entrar. Cada partido tiene 
cinco hoyos. 

En cuestión de marcadores tienes: Al 
lado derecho de la pantalla una muestra 
del campo, un indicador de la velocidad y 
dirección del viento (a esto último al prin- 
cipio no se le da mucha importancia, pero 
cuando mejores tu técnica aprenderás a 
beneficiarte de ella), el número de hoyos, 
la distancia de éste en relación a la pelota 
y el número de golpes de cada jugador, etc. 
En la parte inferior de la pantalla está si- 
tuado el indicador de la potencia de golpe y 
en' la parte superior está el puntaje de 
cada jugador. 

Es importante que aprendas a utilizar 
los distintos tipos de palos y el escoger 
uno u otro depende de donde caiga la pelo- 
ta o de la distancia que haya entre ésta y el 
hoyo. Exactamente son 13 los tipos de pa- 
los: 

1W Con cabeza de madera para grandes 
distancias. 

3W Con cabeza de madera para dar ele- 
vación a la pelota. 

PT que puedes usar cuando la pelota 
haya caído dentro del círculo de césped 
que rodea a cada hoyo o bien para golpes 
suaves. Los diez palos restantes son con 
cabeza de hierro y se utilizan según la dis- 
tancia de la pelota con el banderín que se- 
ñala el hoyo. 

Yo creo que gracias a este juego y dentro 
de no mucho tiempo (20 años) podrás 
competir con Seve Ballesteros. 




Sonido: Normal 

Grafismo: Es muy bueno. Da la sensación 
realista del campo. 

Conclusión: Como puedes ver es muy entre- 
tenido y lo que es más importante, muy com- 
pleto. 

Precio aproximado: 5200 pts. 



MOVO 1 PAR- 3 TIRABA N T 

ni 



Knock out 



Alligata/Discovery 




Formato: Cassette 32K 




Mandos: Teclado o joystick 




Teclee: LOAD «CAS:»3 





Para los aficionados al boxeo o aque- 
llos que tienen de «hacer múscu- 
los» les interesará mucho este jue- 
go. Se trata de un verdadero combate de 
boxeo en 8 rounds. Para que los más débi- 
les se queden tranquilos les advierto que 
pueden elegir a sus contrincantes entre 
los ocho que hay. Cada uno de ellos tiene 
una cualidad o un defecto diferentes y ade- 
más cada uno representa un nivel, más 
alto o más bajo, del juego. 

En la parte superior de la pantalla está 
situado un medidor de fuerza de cada bo- 
xeador y por cada golpe que reciba perde- 
rá energía, lo cual es peligroso ya que sí se 





queda sin ella no podrá evitar el knock 
out, con lo que el otro boxeador se hará 
con la victoria. 

Pero esta no es la única manera de ga- 
nar el combate, ya que también puedes ha- 
cerlo por puntos, que se suman cada dos 
rounds. Esto quiere decir que el ganador 
será quien haya obtenido la mayor pun- 
tuación o ganado la mayor cantidad de 
rounds. 

Entre los movimientos que se pueden 
realizar están: 

Los golpes bajos a la derecha. 

Los golpes bajos a la izquierda. 

Los golpes altos a la derecha. 

Los golpes altos a la izquierda. 

Gran gancho de derecha. 

Gran gancho de izquierda. 

Movimientos de defensa. 

Una de las cosas atractivas es la versati- 
lidad del juego y la posibilidad de jugar no 
sólo contra el ordenador, sino también 
contra otro compañero. Los rivales que 
tienes son Mad Joe, Matt Black, Hammer- 
head (rompecabezas) Doc Martin, Wyatt 
Thug, Jo Violent, Eric T. Red y Big Yin. 

Animo y que no te peguen mucho. 



Sonido: Ambiental apropiado. 
Grafismo: Con efectos tridimensionales. 
Conclusiones: Un juego deportivo en el que 
priva la habilidad y la rapidez de reflejos. 
También las posibilidades tácticas. 
Precio aproximado: 1900 pts. 



OHSHIT! 



Aackosoft/ Compulogical 
Formato: Cassette 32K 
Mandos: Teclado o joystick 
Teclee: RUN «CAS» 





Como podrás apreciar el popularísi- 
mo comecocos nunca pasa de mo- 
da. Aunque seguramente todos vo- 
sotros os acordáis cómo se juega, lo volve- 
ré a explicar por si algún despistadfilo 
aún no se ha enterado. 

Resulta que los comecocos son unos se- 
res muy simpáticos que tienen que comer- 
se una cantidad enorme de pastillitas a lo 
largo de un intrincado laberinto. Pero hay 
algunos fantasmitas que le hacen la vida 
imposible. Sus nombres aparecen al prin- 
cipio del programa, reproducidos por la 
voz del ordenador. Nuestro héroe es Pac 
Bak y debe comerse todas las vitaminas 
que encuentre y las frutas que van apare- 



ciendo en la zona central del laberinto. 
Nuestro amigo tragón conseguirá neutra- 
lizar a los fantasmas si se come todas las 
vitaminas que encuentre en el laberinto e 
incluso tragarse algún fantasma si come 
unas vitaminas especiales que se encuen- 
tran en las esquinas del laberinto. Claro 
que estas vitaminas tienen un radio de ac- 
ción limitado tanto en espacio como en 
tiempo, por lo que tiene que procurar eli- 
minar tanto a los fantasmas como aprove- 
char para limpiar el camino de objetos. 
Con las supervitaminas como ya te dije 
puedes darle un buen mordisco a los fan- 
tasmas pesados, pero si te cazan a ti escu- 
charás que nuestro héroe grita ¡Oh, shit!, 
que es un taco en inglés. Ya te puedes ima- 
ginar lo que significa. 

Para casos de emergencia, es decir que 
te veas acorralado por tus enemigos, tie- 
nes pasillos que te remiten al lado opuesto 
de la pantalla. El juego termina si PacBak 
es vencido por los fantasmas, pero si ocu- 
rre lo contrario, el juego empieza otra vez 
pero a mayor velocidad. Tiene tres opcio- 
nes para obtener el éxito. Animo y que los 
fantasmas no te coman el coco. 




Sonido: Incorpora música y voz humana 
sintetizada. 

Grafismo: Muy cuidado. 
Conclusiones: Es un juego ya clásico y por 
lo tanto, aunque conocido, despierta el inte- 
rés y el entretenimiento de quienes lo juegan. 
Precio aproximado: 2500 pts. 




INICIACION AL LENGUAJE MAQUINA 



ROTACION Y 
DESPLAZAMIENTO 



[ARDALSOFT 



En general, podemos decir que una 
operación de rotación consiste o permi- 
te llevar los bits en un sentido (a la iz- 
quierda: «Rotación a la izquierda») u 
otro (a la derecha: «Rotación a la dere- 
cha») dentro del mismo byte. Así el pri- 
mer bit terminaría último o el último pri- 
mero... es una operación cíclica, sin em- 
bargo las operaciones de desplaza- 
miento no son cíclicas. 

OPERACIONES A LA IZQUIERDA 

Hay dos tipos de rotación a la izquier- 
da y sólo uno de desplazamiento a la iz- 
quierda: 

Rotaciones a la izquierda: 

Esta operación funciona en los si- 
guientes modos de direccionamiento: 

RLr 
RL (HL) 
RL(IX+d) 
RL (IY +d) 

Un ejemplo práctico es el acumulador 
de rotación a la izquierda RL A; veamos 
en un gráfico lo que realiza 



3 



El valor del flag de acarreo se pone y 
el bit número 7 se lleva al flag; así, el de 
acarreo es como un «noveno» bit. 

Rotación cíclica a la izquierda: 

Los modos de direccionamiento son 
los mismos que hemos visto pero su ac- 
tuación es diferente. Su mnemónico es 
RLC (Rotate Left Circular): Rotación Cí- 
clica a la Izquierda. 

Instrucciones comunes como: RLC A 
y RLC (HL). 



2 



(ZZK- 
C 

En este caso* el valor del flag de aca- 



rreo no se mueve al bit del byte. 
Aritmética de desplazamiento a la iz- 

Los modos de direccionamiento son 
los mismos. 

Su mnemónico es: SLA s (s = cual- 
quiera de los modos de direccionamien- 
to) 

La instrucción es como una multiplica- 
ción por 2; pero si el valor del acumula- 
dor es superior a 1 27, después de ejecu- 
tar la orden SLA A, el resultado en el re- 
gistro A será erróneo. 

OPERACIONES A LA DERECHA 

Las más sencillas son las de rotación 
hacia la derecha: 

RRr 
RR (HL) 
RR(IX +d) 
RR (IY + d) 

Rotaciones cíclicas hacia la derecha 

Sus modos de direccionamiento son 
los mismos que los de las instrucciones 
RR. 

Desplazamiento lógico hacia la dere- 
cha: 

Sus modos de direccionamiento son: 
SRLr 
SRL(HL) 
SRL (IX + d) 
SRL(IY + d) 

Lo que ejecutan en realidad son divi- 
siones por 2; el bit 7 se pone a y el bit 
va al acarreo. 

Encontramos estas instrucciones en 
problemas en que se necesita saber 
dónde está el número en complemento 




a dos; en caso de que haya un número 
es muy importante retener el bit de sig- 
no, es decir, el bit número 7. 

La instrucción que desplaza el bit de 
signo es la de desplazamiento aritméti- 
co. 

Desplazamiento aritmético hacia la 
derecha 

Se comporta igual que la instrucción 
SLR (salvo que no desplaza el valor del 
bit 7 en ese momento). Su mnemónico 
es SRA s. 

BUCLES FOR... NEXT EN CODIGO 
MAQUINA 

Ahora veremos las instrucciones que 
equivalen al bucle FOR... NEXT del BA- 
SIC. (Utilizado normalmente para espe- 
cificar las veces que se desea ejecutar 
una secuencia del programa). 

En lugar de utilizar una variable (I) 
como en BASIC, en lenguaje máquina 
utilizaremos un registro. 

P. ejem.: 

RAQir* 



10C=0 
20 FORI=1T0 6 
30 LETC4C+1 
40 NEXT I 

La manera más sencilla de hacer el 
proa/ama anterior con un único registro 
seria efectuando una cuenta atrás para 
comprobar si el contenido del registro es 

0: 

LD C, inicializaC 
LD B, 6 inicializa «I» 
BUCLE INC C c = c + 1 
DEC B esta y la siguiente simulan la ins- 
trucción NEXT del BASIC. 
JR NZ, BUCLE 

LA INSTRUCCION RESTART 

Su función es como la de CALL para 
un solo byte. El único problema que pre- 
senta RESTART, es que con ella sólo 
podemos llamar a determinadas direc- 
ciones y éstas han de estar en los 256 
bytes primeros de la memoria del Z-80. 
Todas las instrucciones, pues, estarán 
dentro de la ROM del MSX. 

Hay ocho instrucciones distintas 
RESTART que permiten llamar a las di- 
recciones: &H00, &H08, &H10, &H13, 
&H20, &H28, &H30, &H38; y su función 



es hacer rápidas y efectivas llamadas a 
las subrutinas. 

Así por ejemplo, la instrucción: RST 
&H00, daría un salto a la dirección 0, 
provocando la ejecución de la instruc- 
ción RESET. 

INTERRUPCIONES 

Muy útiles en el ordenador. 

Una interrupción es una señal que 
mandada a la UCP la informa de que se 
la precisa para solucionar algún proble- 
ma dentro del ordenador. La UCP anota 
lo que esté haciendo, posteriormente 
salta a donde se le necesita ejecutando 
el trabajo que le mande la interrupción. 

Esta rutina se denomina: RUTINA 
PARA EL TRATAMIENTO DE INTE- 
RRUPCIONES y habitualmente guarda 
vários registros, ejecuta el trabajo nece- 
sario, realmacena los registros y vuelve 
a donde estaba con la instrucción RETI 
(Return from Interrupt) -retorno de una 



interrupción-, ésta recoge de la pila la 
dirección a la que ha de volver, del mis- 
mo modo que lo hacía RET. 

En el MSX la forma más frecuente de 
interrupción es generada 50 veces por 
segundo por el VDP, leyendo el teclado 
la rutina para el tratamiento de interrup- 
ciones. La interrupción generada por 
VDP provoca un salto a la dirección 
&H38. 

Estas interrupciones se denominan 
ENMASCARABLES (Existen también 
las interrupciones NO ENMASCARA- 
BLES, pero son poco útiles para el pro- 
gramador) 

La UCP puede responder o no a las 
interrupciones enmascarables: 

-DI (Disable Interrupts: desactivación 
de interrupciones) 

Hace que la UCP ignore las interrup- 
ciones enmascarables. 

-El (Enable Interrupts: activación de 
interrupciones) 

La UCP responde a las interrupcio- 



nes enmascarables. 

Desactivando las interrupciones au- 
menta la velocidad de los programas 
pero la UCP no preguntará nada al te- 
clado usando este tipo de interrupcio- 
nes. Más adelante veremos que da igual 
que no nos pregunte nada y que lo real- 
mente importante es escribir la instruc- 
ción El en las interrupciones antes de 
volver al BASIC ya que, de lo contrario, 
el teclado seguiría bloqueado aún vol- 
viendo al BASIC y, lógicamente, la ca- 
pacidad del ordenador se reduciría en 
gran parte. (Imagmate si no pudieras 
usar el teclado de tu ordenador). 

Con este epígrafe completamos las 
instrucciones que controlan programas; 
veamos ahora las operaciones impor- 
tantes en la programación del Z-80 que 
utilizan saltos y bucles para funcionar 
automáticamente con más de un byte: 
Se trata de las operaciones en bloque. 

POR J.C. GONZALEZ 



NUMEROS ATRASADOS • NUMEROS ATRASADOS 
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MSX 2.' Edición 




GOLDSTAR FC200 



¿L>\ ■ SPECfRAVIDEfl X'RRESS 



MSX 2." Edición 



N." 1,2,3,4 - 450 PTAS. N.~ 5,6,7,8 - 475 PTAS. 



MSX9 150 PTAS. 



MSX10 300 PTAS. 




M3X14 160 PTAS. 



MSX15 175 PTAS. 



MSX16 175 PTAS. 



S0NYHB5OTP/f i X° Y 



MSX 17 175 PTAS. 




MSX18 175 PTAS. 



MSX 19,20 300 PTAS. 



¡LA 1 . a REVISTA DE MSX DE ESPAÑA! 

PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» 




Deseo recibir los números 



de SUPERJTJEGOS EXTRA MSX 



para lo cual adjunto talón del Banco 

I Nombre y apellidos 

Dirección 

Población 



n. c 



a la orden de Manhattan Transfer, S_A_ 



Tel.: 



DP. 



Prov. 



«No admita contrarreembolao» 
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LEMANS2 

Soft Card de Serma 

Una nueva versión del famoso juego 
«Le Mana» ya es comercializado 
por la casa Berma SJL, en soporte 
tarjeta. Como ya conocen los usuarios de 
MSX, existen en el mercado español dos ti- 
pos de tarjetas ROM. Esta es la de Electric 
Software, comercializada bajo el epígrafe 
de Soft Card y que se conecta al ordenador 
MSX mediante un cartucho adaptador que 
se vende junto a la tarjeta. Por supuesto, 
aquellos que ya tengan el cartucho adap- 
tador no necesitan comprarlo nuevamen- 
te, con lo que el precio se reduce ostensi- 
blemente. La casa Serma, tal como ya in- 
formamos en esta misma sección, produ- 
ce en nuestro país las tarjetas Soft Card 
mediante licencia de Electric Software. 
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YAMAHA 

Date memory 



UDC-01 DATA 
MEMORY YAMAHA 



1 Data Memory Yamaha UDC-01 es 
un software que muchos usuarios 
aficionados a la música lo encon- 



trarán sumamente útil. Se trata pues de 
un cartucho destinado al almacenaje de 
datos musicales (timbre, notas, etc.). Aquí 
también puedes almacenar melodías o rit- 
mos que pueden ser interpretadas por 
cualquier instrumento musical que em- 
plee el interface MIDI en conjunción con 
cualquier ordenador MSX que incorpore 
la salida MIDI. Como podemos deducir no 
se trata de un ampliador de memoria, sino 
de un cartucho que almacena datos musi- 
cales en modo digital. 



SVT AMPLIADOR DE 
MEMORIA 

La firma SVI España ha decidido dar 
el máximo de software para hacer 
más útil los aparatos MSX. Con ello 
pretende dar el máximo apoyo a un siste- 
ma verdaderamente racional. En este sen- 
tido, cuenta entre otros, con cartuchos de 
ampliación de memoria a 64K y un cartu- 
cho que transforma las 40 columnas de 
los MSX en 80 columnas. Se trata de los 
modelos SVI-747 y SVI-727. Este último 
está diseñado para ser usado con el SVI 
728 y la unidad de disco SVI 707, ya que a 
través de ella se puede acceder al sistema 
operativo CP/M y conmutar de 40 a 80 co- 
lumnas. 

Con respecto al ampliador de memoria 




de 64K, los ordenadores MSX de menor 
memoria alcanzan ésta y los que ya lo tie- 
nen consiguen mayor velocidad de compi- 
lación de programas largos. 



MONITOR DE ALIA 
DEFINICION 

SonyKX-14CPldel4" 

ste aparato de la casa Sony está es- 
pecialmente diseñado como moni- 
tor de ordenador por su alta defini- 
ción y por sus entradas RGB DIGITAL/ 
ANALOGICO. Sus entradas de vídeo (Euro- 
oonector 21 PIN) le permiten conectar 
con equipos de vídeo de 1/2 pulgada, vídeos 



M-1509 BROTHER 



Impresora matricial 

Esta impresora de tipo matricial, M- 
1809 Brother, distribuida y comer- 
cializada en España por Dynadata, 
cuenta con unas características destaca- 
bies. En primer lugar su diseño claro y 
limpio, la poca altura de su carcasa y la ac- 
cesibilidad de sus mandos y conexiones. 
Tiene una velocidad de 180 caracteres por 
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segundo y su impresión es bidireccional. 
Dispone de 96 caracteres tipo ASCII, 43 
caracteres internacionales, 64 del tipo 
IBM PC y los modelos de los mismos son 
pica, élite, calidad, condensada, itálico, etc. 
Cuenta además oon interface centronic 
paralelo y R8 232C y su peso es de unos 6,7 
kg. Si bien no es una impresora MSX es 
compatible con esta norma. 8u precio 
aproximado es de unas 97.000 ptas. 




de 8 nun, sintonizadores o DBS (sistemas 
de TV directa vía satélite y por supuesto 
con ordenadores MSX, sobre todo, el MSX- 
2. Este aparato acepta ademas señales de 
vídeo de cualquiera de los tres sistemas te- 
levisivos, es decir, PAL, SECAM y NTSC. En 
lo que repecta a los ordenadores, los usua- 
rios de MSX encontrarán en él un magní- 
fico complemento. Este aparato que incor- 
pora el nuevo sistema «black triniton», 
proporciona una mayor resolución gráfi- 
ca. Ella es de 640x200 pixels y un máximo 
de 2.000 caracteres (80x25 líneas). 



CP 




D6450 Philips 

Grabadora de datos 



La grabadora de datos en cassette 
D6450 ha sido diseñada como un 
periférico MSX. Con la Habilidad 
propia de los productos Philips esta gra- 
badora realiza sus operaciones de graba- 
ción y transferencia de datos mediante 
una manipulación sencilla de sus botones 
de mando. La transferencia se controla en 
todo momento mediante un LED indica- 
dor. Se provee con un cable estándar de co- 
nexión MSX 



IDEALOGIC Y ACT 
INFORHATIQUE 

Acuerdo' internacional 

Las empresas Idealogic de España y 
ACT Informatique han llegado a un 
acuerdo para desarrollar conjunta- 
mente software educativo dentro del mar- 
co de la colaboración tecnológica e indus- 




ESPIONAJE A DISTANCIA 



Parabolic Ear 

La empresa SVI España ofrece entre 
sus Juguetes un micrófono parabó- 
lico con el que se pueden escuchar 
conversaciones a una distancia determi- 
nada. 8ólo basta con dirigir el micrófono, 
provisto de una pequeña antena parabóli- 
ca para captar a través de unos auricula- 



res, cualquier tipo de sonido que se emita 
desde una zona de interés especificada. 
Este aparatito, cuyo precio aproximado es 
de unas 2.900 pts. aplica, dentro de su sen- 
cillez una tecnología acústica avanzada. 
Entre los principales elementos que lo 
componen tenemos un micrófono y un di- 
minuto amplificador, unos auriculares y 
una pantalla parabólica. 



trial entre Francia y España. 

Ambas empresas han decidido consti- 
tuir un fondo común de investigación y 
disponer las inversiones necesarias para 
la consecución efectiva de los proyectos. 
Entre estos podemos contar los plantea- 
dos a corto plazo, tendentes a solucionar 
los problemas inmediatos del sector de la 
enseñanza, y los que se desarrollarán a 
largo plazo, entre los que podemos citar la 
Robótlca pedagógica y la Inteligencia Ar- 
tificial para la educación y la formación 
profesional. 



PROCESADOR DE TEXTO 
INCORPORADO 

En el Toshiba HX-20 

Entre las bondades del ordenador 
Toshiba HX podemos destacar el 
procesador de texto que incorpora. 
Su gran sencillez de uso permiten que el 
usuario escriba, edite o transfiera textos 




con la mayor facilidad. Una vez conectado 
el ordenador, el usuario puede optar por el 
basic o bien por el procesador de texto. En 
el modo Write, puede mecanografiar los 
textos y emplear las funciones de correc- 
ción y centrado. En el modo Edit puede 
cambiar la distribución del texto con unas 
pocas instrucciones. Por último el modo 
Transfer, da opción a registrar o extraer 
el texto en o de cassettes o discos con el 
mínimo esfuerzo. 
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TRUCOS DEL 
PROGRAMADOR 




VELOCIDAD EN C.M. 



Remito dos programas cuya ejecu- 
ción lleva al mismo resultado: La pre- 
sentación en pantalla del Juego de Ca- 
racteres (3 veces) en el Modo 3 (screen 
2). El primero está escrito en BASIC, y el 
segundo usa de una rutina en Código 
Máquina, la cual realiza una llamada a la 
rutina del Sistema cuya dirección de ini- 
cio es 0059H -mueve un bloque de la 
memoria principal a la VRAM-, resultan- 
do de ello una velocidad de ejecución 
que sirve para demostrar una de las 
ventajas del C.M. frente a los Lenguajes 
de Alto Nivel: LA VELOCIDAD DE EJE- 
CUCION. 



LISTADO 1 

Tiempo de ejecución 32 segundos. 

10 SCREEN 2:C0L0R 1,15 
20 DEFINÍ A,C,D, X, Y 
30 A=0:D=iHlBC7:C=2039 
40 FOR Y=0 TO 2 

50 IF Y=2 THEN A=4079:C=6120:D=iHlB 
C7 

60 FOR X=A TO C 

70 VPOKE X,PEEK(D> :D=D+1 

80 NEXT X 

90 1F Y=0 THEN A=2040:C=4079:D=fcHlB 
C7 

100 NEXT Y 
110 GOTO 110 



LISTADO 2 

Tiempo de ejecución 0,8 segundos 

10 CLEAR 200,4HEFFF 
20 SCREEN 2 

30 FOR I=iHF000 TO &HF00C 
40 READ A 
50 POKE I,A 
60 NEXT 

70 DEFUSR=MF000 

80 GOSUB 160 

90 POKE tHF004,4HF8 

100 POKE &HF005,*H7 

110 GOSUB 160 

120 POKE iHF004,?<HF0 

130 POKE ÍHF005.ÍHF 

140 GOSUB 160 

150 GOTO 150 

160 X=USR(1):RETURN 



LISTADO 3 (Desarrollo de la rutina en C.M. que comienza en &HF000) 



Direcci ón 



Valor 



Comando Ensamblador 



170 DATA irt2i,WC7 f WíiB,iHli,*H#,^ 
0,iHl 

180 DATA &HF8,M7,Ú,*H5C,fcHMHC 
9 

Antonio Rodríguez Tranche 



EL INTERROGANTE 
DEL DJTPTJT 

Muchos usuarios detestan -como' 
yo- que aparezca el interrogante de ri- 
gor siempre que se utiliza la instruc- 
ción INPUT. Después de una buena 
temporada devanándome los sesos di 
con la solución. La rutina del comando 
INPUT comienza en la dirección 
& H23CC en la cual se efectúa un CALL 
a la fiPHFDEO, perteneciente a la RAM 
y donde puede colocarse un «parche» 
que elimine de la vista el antiestético 
interrogante la manera de realizarlo 
es la siguiente: 

10 POKE *HFDEl,fcHC3 
20 POKE fcHFDE2.i-.HD2 
30 POKE *HFDE3,4H23 
40 POKE fcHFDE?. fcHF 1 

Si ejecutamos este programa y des- 
pués colocamos un INPUT en modo di- 
recto, veremos que tan sólo aparece el 
cursor esperando la introducción del 
dato requerido. Si deseamos volver al 
estado inicial, debemos realizar el si- 
guiente poke: 

POKE fcHFDE0,fcHC9 

Esteban Perlosio 
(Torrejón de Ardoz) 



F000 


21h 


LD HL, lBC7h 


F001 


C7 




F002 


IB 




F003 


1 1 


LD DE,000h 


F004 


00 




F005 


00 




F006 


01 


LD BC,07F8h 


F007 


F8 




F008 


07 




F009 


CD 


CALL,005Ch 


F00A 






F00B 


00 




F00C 


C9 


RET 



Carga el registro HL con 
la dirección del bloque a 
transí erir 



Carga el registro DE con 
la dirección a partir de 
la cual se ha de colocar 
el bloque 

Carga el registro BC con 
la longitud del bloque a 
transferir 

Llamada a la rutina del s 
istema con inicio en 005C 
h 
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Prepárate 
estamos 

trabajando en un 
número especial 
con todo el 

SOFTWARE MSX del 

xado español, 
imbién 
noticias, 
novedades, 
comentarios y un 
largo etcétera que 
harán de este MSX 

CLUB ESPECIAL 

)FTWARE algo 

DE SERIE. 







manta *t°t e*t victeojueao¿ pana ordenador 
aéne áu primera tienda, de Scviúfia en'THaanid 




Rogamos a todos los usuarios de Spectrum, CM 64, Amstrad y MSX que nos escriban 
a SERMA sugiriendo ¡deas para hacerlas realidad en nuestra tienda 



TODOS LOS JUEGOS Da CATALOGO DE SERNA 
ESTARAN TAMBIEN A LA VENTA EN: Kponami 
LOS TITULOS EDITADOS POR Kíonami PARA 
SPECTRUM, CM 64, AMSTRAD Y MSX SON: 
FABRICADOS Y DISTRIBUIDOS EN EXCLUSIVA 



POR SERMA. •¥ 



